I am trying to play one file after another with WMP10.

For simplicity I have hard coded the files to play. One on load and the other when the event wmppsMediaEnded is fired.

The problem is that the second file won't play.

Howsever, if I add a message box (See below) the second file plays until I click ok.

I have search everywhere for the answer to this problem.

It seems so simple.

Any assistance would be appreciated.


Private Sub Form_Load()

    WM1.URL = "E:\Music\Australian Crawl\Crawl File\02 indisposed.mp3"

End Sub

Private Sub WM1_PlayStateChange(ByVal NewState As Long)
    
    If WM1.playState = wmppsMediaEnded Then
    
        WM1.URL = "E:\Music\Videos\HardAct.mpg"
        
        WM1.Controls.play
        
        'MsgBox WM1.playState
                
    End If
    
End Sub

Surely someone out there has overcome this problem.