Private Sub Form_Load() ShockwaveFlash1.Movie = "D:\Flash\Flash\34985.swf" Timer1.Interval = 100 End Sub Private Sub Timer1_Timer() Dim i, j As Long i = ShockwaveFlash1.CurrentFrame Label1 = i j = ShockwaveFlash1.TotalFrames Label2 = j If i >= j - 1 Then End End If End Sub
ShockwaveFlash1.Movie = "D:\Flash\Flash\34985.swf"
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Dim i, j As Long
i = ShockwaveFlash1.CurrentFrame
Label1 = i
j = ShockwaveFlash1.TotalFrames
Label2 = j
If i >= j - 1 Then
End
End If
End Sub