Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        Me.AxWindowsMediaPlayer1.URL = "c:\Lied.mp3"
    End Sub
 
    Private Sub AxWindowsMediaPlayer1_PlayStateChange(ByVal sender As Object, _
      ByVal e As AxWMPLib._WMPOCXEvents_PlayStateChangeEvent) Handles _
      AxWindowsMediaPlayer1.PlayStateChange
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped _
        Then
            MessageBox.Show("Ende!")
        End If
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co