VB工程--百例86--播放flash动画.

此题的唯一难点就是加载swf动画，路径。

Option Explicit

Private Sub Command1_Click(Index As Integer)
        Select Case Index '以命令按钮的索引值作为测试表达式
        Case 0
        Flash1.Movie = "D:\软件文件夹2\大型软件\VB学习\百例\百例源文件\实例86\实例素材\wg.swf"
        '加载一个文件swf文件的动画
        Flash1.Play
        '播放动画
        Case 1
        End
        End Select
       
End Sub