Private Sub Timer1_Timer()
Static a As Long
Static b As Integer
Dim OBJ As Object
  
Set OBJ = IIf(playform.Visible = False, Me.Flash1, playform.ShockwaveFlash1)

b = IIf(a = OBJ.CurrentFrame, b + 1, 0)
If b > 80 Then OBJ.Playing = True
      
      Caption = b
     If b > 200 Or a + 1 >= OBJ.TotalFrames Then
        b = 0
        If File1.ListIndex < File1.ListCount Then
            File1.Selected(File1.ListIndex + 1) = True
          Else
            File1.Selected(0) = True
        End If
            OBJ.Movie = Dir1 + "\" + File1.FileName
     End If
   a = OBJ.CurrentFrame
   
Set OBJ = Nothing
Exit Sub
Err:
     b = 0
     Set OBJ = Nothing
End Sub

不好意思，虽为弱身体质，姑且强顶一下吧，抱歉。