Невозможно вызвать функцию controls.play () WMP в VisualBasic.

У меня есть следующий код:http://pastebin.com/EgjbzqA2 который в основном просто урезанная версияhttp://www.dreamincode.net/forums/topic/57357-mymusic-player/, Я хочу, чтобы программа воспроизводила один файл несколько раз, однако эта функция непо какой-то причине не работает. Программа воспроизводит каждый файл один раз, а затем останавливается.

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

Ответы на вопрос(2)

Ваш ответ на вопрос