Этот код воспроизводит следующую песню в списке
If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
If listTracks.SelectedIndex < listTracks.Items.Count - 1 Then
listTracks.SelectedIndex = 0
AxWindowsMediaPlayer1.URL = listTracks.Items(0)
AxWindowsMediaPlayer1.Ctlcontrols.play()
Else
listTracks.SelectedIndex = listTracks.SelectedIndex + 1
AxWindowsMediaPlayer1.URL = listTracks.Items(listTracks.SelectedIndex)
AxWindowsMediaPlayer1.Ctlcontrols.play()
End If
End if
Я не получаю сообщение об ошибке, но следующая песня не воспроизводится