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

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