Dim von As Integer
Dim bis As Integer
Dim i As Integer
[hr]
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
    End If
End Sub
[hr]
Private Sub Timer4_Timer()
    ShockwaveFlash1.Back
    i = i - 1
    If ShockwaveFlash1.CurrentFrame = bis Then
        Timer4.Enabled = False
    End If
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...