【实例说明】
    Flash是一款功能强大的多媒体工具，它不仅可以制作出丰富多彩的网络动画，而且还能打造精彩的MTV。使用ShockwaveFlash控件不但可以在VB程序中播放Flash动画，还可以实现按帧播放。运行程序，将自动播放Flash动画。

【编程思路】
    播放Flash动画，可以使用ShockwaveFlash控件。相关的属性和方法如下：
        Movie属性：指定要播放的文件。
        TotalFrames属性：总共帧数。
        CurrentFrame属性：当前帧。
        Playing方法：开始播放动画。
        Back方法：跳到动画的上一帧。
        Forward方法：跳到动画的下一帧。
        Stop方法：暂停播放。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.单击“工程”菜单中的“部件”选项，在弹出的列表中，选中SockwaveFlash选项，单击“确定”按钮，ShockwaveFlash控件将被添加到工具箱中。
    3.在窗体上放置一个ShockwaveFlash控件、CommandButton控件、一个Timer控件。
    4.在源程序同一级目录下放一个Flash文件“love.swf”

    5.源程序  [素材源程序下载]

'播放
Private Sub Command1_Click()
        Timer1.Enabled = True
End Sub

'退出
Private Sub Command2_Click()
        End
End Sub
'播放文件love.swf
Private Sub Timer1_Timer()
        Me.ShockwaveFlash1.Movie = App.Path & "\love.swf"
End Sub