Private Sub MediaPlayer1_PlayStateChange(ByVal OldState As Long, ByVal NewState _
  As Long)
  ' Status abfragen
  If OldState = 0 And NewState = 2 Then
    ' Beginn neues Lied / neuer Film
    Timer1.Interval = 100
    Timer1.Enabled = True
  Else
    Timer1.Enabled = False
  End If
End Sub
 
Private Sub Timer1_Timer()
  With MediaPlayer1
    If .CurrentPosition >= .Duration Then
      ' Abspielvorgang beendet!
      Timer1.Enabled = False
      Unload Me
    End If
  End With
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de