Media player End of stream

[bautistasbr]

Ola de nuevo 

En mi reproductor estoy usando el componente de windows media 10. Quiero que cuando acabe de reproducir una cancion,pase a la siguiente de la lista,y si no hay mas,q pare.Pero no se como hacerlo.Encontre este code pero no me funciona

Private Sub wmpTemp_EndOfStream(ByVal Result As Long) 'Go on to next Mp3 when done with Current one
  On Error Resume Next
If List1.ListIndex = List1.ListCount - 1 Then
If Check2.Value = 1 Then
List1.ListIndex = 0
wmpTemp.URL = List1.Text
wmpTemp.Controls.play
Else
List1.ListIndex = 0
End If
Else
List1.ListIndex = List1.ListIndex + 1
wmpTemp.URL = List1.Text
wmpTemp.Controls.play
End If
End Sub

el check seria pa repetir la lista entera.

Lo q pasa es q no pasa solo d cancion,el code creo q esta bien.

Gracias

[bautistasbr]

nadie sabe q le pasa? 

[bautistasbr]

Ninguno de ustedes sabe decirme que es lo q le pasa?