C# と VB.NET の質問掲示板

VB.NET (Vistual Studio 2019)

こんにちは。


プレイヤーを作っております。

コード（AxWindowsMediaPlayer1_MediaChange)
Private Sub AxWindowsMediaPlayer1_MediaChange(sender As Object, e As AxWMPLib._WMPOCXEvents_MediaChangeEvent) Handles AxWindowsMediaPlayer1.MediaChange
        Try
            Dim i As Integer
            If AxWindowsMediaPlayer1.currentMedia.isIdentical(AxWindowsMediaPlayer1.currentPlaylist.Item(i)) Then
                ListBox1.SelectedIndex = i"最初にファイルを開いて再生押すとLabel1に表示される。

            End If
            ProgressBar1.Value = 0
        Catch ex As Exception

        End Try
    End Sub

コード（ファイルを開く）
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        AxWindowsMediaPlayer1.settings.autoStart = False
   '省略

For Each strFilePath As String In OpenFileDialog1.FileNames
            strFileName = IO.Path.GetFileName(strFilePath)

            ListBox1.Items.Add(strFileName)

            AxWindowsMediaPlayer1.currentPlaylist.appendItem(AxWindowsMediaPlayer1.newMedia(strFilePath))
        Next
        Label1.Text = System.IO.Path.GetFileName(ListBox1.SelectedItem)
    End Sub

コード（   AxWindowsMediaPlayer1.Ctlcontrols.next()）

Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click


'A
        AxWindowsMediaPlayer1.Ctlcontrols.next()

    End Sub

 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPlaying Then
                AxWindowsMediaPlayer1.Ctlcontrols.pause()
            ElseIf AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsPaused Then
                AxWindowsMediaPlayer1.Ctlcontrols.play()
                Timer1.Start()
                Timer2.Start()

            ElseIf ListBox1.Items.Count = 0 Then

            Else


                AxWindowsMediaPlayer1.Ctlcontrols.play()
            End If
        Catch ex As Exception

        End Try
省略しています。

教えてほしい事。

リストボックス内でラベルテキスト表示させたいです。


 Aの部分
1
Label1.Text = ListBox1.SelectedIndex

AxWindowsMediaPlayer1.Ctlcontrols.next()押した時「０」という表示がされます。

2
Label1.Text = ListBox1.SelectedItem
変化なし

やりたい事
AxWindowsMediaPlayer1.Ctlcontrols.next()を押す時、リストボックスとラベルテキストの連動する

リストボックスA(Label1.text)
リストボックスB(Label1.text)
リストボックスC(Label1.text)
Label1.text(A)
Label1.text(B)
Label1.text(C)

という感じにAxWindowsMediaPlayer1.Ctlcontrols.next()押した時実行させるにはどのように修正したら出来ますか？
教えてください。