Option Explicit
Dim iIndex As Integer
 
Private Sub cmdPlay_Click()
  <font color=green>' von vorne beginnen</font>
  iIndex = 0
  Play_MP3 iIndex
End Sub
 
Private Sub MediaPlayer1_PlayStateChange( _
  ByVal OldState As Long, ByVal NewState As Long)
 
  If OldState = 2 And NewState = 0 Then
    <font color=green>' MP3 beendet, jetzt nächsten Eintrag abspielen</font>
    iIndex = iIndex + 1
    If iIndex > List1.ListCount - 1 Then
      MsgBox "Alles angespielt!"
      iIndex = 0
    Else
      Play_MP3 iIndex
    End If
  End If
End Sub
 
Private Sub Play_MP3(ByVal iIndex As Integer)
  MediaPlayer1.FileName = List1.List(iIndex)
  MediaPlayer1.Play
End Sub