Windows media player if complete

[eeyk]

kan iemand me helpen
ik ben bezig met een mp3 player
en nu ben ik bezig met auto play

alleen het werkt niet ziet iemand de fout

Private Sub player_PlayStateChange(ByVal NewState As Long)
On Error Resume Next
If player.playState = 8 Then
    If List1.ListIndex < List1.ListCount - 1 Then
       List1.ListIndex = List1.ListIndex + 1
       player.URL = List1
       player.Controls.play
    Else
      List1.ListIndex = 0
    End If
    End If
End Sub

 

[That Guy]

errr,

      player.URL = List1

moet dat niet zijn

      player.URL = List1.list(list1.listindex)

ofzo?

 

[eeyk]

nee player.url = list1 is goed ik gebruik VB6