Private Sub Command10_Click()
 
von = Text2.Text - 1
bis = Text3.Text - 1
If von > bis Then
ShockwaveFlash1.GotoFrame von
Timer4.Enabled = True
Else
 ShockwaveFlash1.GotoFrame von
    ShockwaveFlash1.Playing = True
Timer3.Enabled = True
 
End If
 
 
 
  End Sub
 
Private Sub Timer4_Timer()
Dim i As Integer
 
von = Text2.Text - 1
bis = Text3.Text - 1
 
ShockwaveFlash1.Back
For i = von To bis Step -1
 
If ShockwaveFlash1.CurrentFrame = bis Then
 
ShockwaveFlash1.Stop
End If
 
Next i
End Sub

--------------------------------------------
Cya,
gru? xmex

Dumm ist wer dummes macht.
--------------------------------------------