'Hallo transwarp...
'durch die Angabe von 1 in der Methode Play wird das .avi so oft abgespielt wie
'angegeben. D.h. gibst Du 1 an wird das .avi 1 x abgespielt bei der Angabe von 2
'dann 2 x usw...
'Durch die Angabe von z.B .Play 1, 3, 10 wird das .avi 1 x ab Position 4 bis
'Position 10 abgespielt. Das erste Bild in der .avi Datei hat den Index-Wert 
' von 0.
 
Private Sub Command1_Click()
    Dim Path As String
 
    Path = "d:\devstudio\graphics\videos\blur16.avi"
    With Animation1
        .Open Path
        .Play 1
    End With
End Sub
 
'MfG
'Frank

Private Sub MediaPlayer_EndOfStream(ByVal Result As Long)
 
      If MediaPlayer.PlayState <> mpStopped Then
           MediaPlayer.Stop
      End If
 
      frmForm1.Hide
      Unload frmForm1
 
End Sub