VB 调用flash为啥播放flash的时候会卡

VB 调用flash为什么播放flash的时候会卡？

各位大侠，洒家用的是VB6.0企业版，程序里调用了flash （.swf文件）用的是ShockwaveFlash控件。但是程序播放flash 的时候会一卡一卡的，隔三四秒会停顿一下。是什么的原因呢？flash文件大小21.9 MB 
[解决办法]
flash 缓存太小，下载速度小于播放速度。
[解决办法]
VB的Flash这个控件 一点问题都没有 试看我这代码与你的有啥不同 ？

Option Explicit
Dim AppDisk$, FlashName$, FlashLength&
Private Sub Form_Load()
   Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
   AppDisk = IIf(Right(App.Path, 1) = "", App.Path, App.Path & "")
   ShockwaveFlash1.ScaleMode = 0   '将画面大小设置为在控件内保持动画原来比例全部显示
   Option1(0).Value = True: Check1.Value = 1
   Text1.Text = AppDisk & "cars.swf"
   Timer1.Enabled = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Timer1.Enabled = False
   ShockwaveFlash1.Stop
   Set Form1 = Nothing
   End
End Sub

Sub SelFile()
    On Error GoTo ErrH
    FlashName = ""
    With CommonDialog1
       .DialogTitle = "请选择文件"
       .CancelError = True
       .InitDir = AppDisk
       .Filter = "FLASH格式(*.swf)
[解决办法]
*.swf"
       .ShowOpen
    End With
    FlashName = CommonDialog1.FileName
    If FlashName <> "" Then Text1.Text = FlashName
ErrH:
    If Err = 32755 Then Exit Sub
End Sub

Private Sub Command1_Click(Index As Integer)
   Select Case Index
      Case 0 '打开
         Call SelFile
         If Text1.Text <> "" Then
            If Dir(Text1.Text) <> "" Then Command1_Click (1)
         End If
      Case 1 '播放
         Command1_Click (6)
         ShockwaveFlash1.Movie = Text1.Text  '打开文件
         ShockwaveFlash1.Playing = True    '开始播放动画。
         FlashLength = ShockwaveFlash1.TotalFrames
         Label3.Caption = "本播放文件共有: " + CStr(FlashLength) + " 帧"
         Slider1.Max = FlashLength
         Timer1.Enabled = True
      Case 2 '跳到动画的上一帧

         ShockwaveFlash1.Back
      Case 3 '跳到动画的下一帧
         ShockwaveFlash1.Forward
      Case 4 '放大画面。
         ShockwaveFlash1.Zoom (50)
      Case 5 '缩小画面。
         ShockwaveFlash1.Zoom (150)
      Case 6 '暂停
         ShockwaveFlash1.Stop
      Case 7 '退出程序
         Unload Me
   End Select
End Sub