Listbox(Playlist) automatisch afspelen

[bonnowagt]

Hallo,

Ik heb een mediaspeler gemaakt in VB2010. Alles werkt prima, alleen de volgende optie kan ik niet voor elkaar krijgen.

Ik laad bijvoorbeeld een playlsit in . Druk op play of dubbelklik op het liedje en het eerste liedje wordt keurig afgespeeld. Dan zou ik graag willen dat hij automatisch naar het volgend nummer gaat en die ook afspeelt. Dit lukt mij niet. Voor het volgende nummer moet ik steeds weer een button actie ondernemen. Het nummer wordt met deze code afgespeeld:

Dim aantalsongs

aantalsongs = ListBox1.Items.Count
If ListBox1.Text = "" Then
Button2.Enabled = False
If aantalsongs > 0 Then Button2.Enabled = True
Exit Sub
End If

AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar2.Value

Timer3.Enabled = True
Button5.Enabled = True
Button6.Enabled = True

Het belangrijkste uit deze code is natuurlijk:
AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar2.Value

Hoe krijg ik het nu voorelkaar dat de speler de volgende item selecteerd en afspeelt, NA het afspelen van het liedje.

Ik heb dit al geprobeerd met ..... Played en Stopped maar kennelijk doe ik daarbij iets verkeerd.

Wie o wie

Groetjes