Ich habe folgenden Code:http://pastebin.com/EgjbzqA2 Das ist im Grunde nur eine abgespeckte Version vonhttp://www.dreamincode.net/forums/topic/57357-mymusic-player/. Ich möchte, dass das Programm eine Datei wiederholt abspielt, diese Funktion funktioniert jedoch aus irgendeinem Grund nicht. Das Programm spielt jede Datei einmal ab und stoppt dann.

Private Sub Player3_PlayStateChange(ByVal NewState As Integer) Handles Player3.PlayStateChange
    Static Dim PlayAllowed As Boolean = True
    Select Case CType(NewState, WMPLib.WMPPlayState)
        Case WMPLib.WMPPlayState.wmppsReady
            If PlayAllowed Then
                Player3.controls.play()
            End If
        Case WMPLib.WMPPlayState.wmppsMediaEnded
            ' Start protection (without it next wouldn't play
           PlayAllowed = False
            ' Play track
           Player3.controls.play()
            ' End Protection
           PlayAllowed = True
            updatePlayer()
    End Select
End Sub