此题的唯一难点就是加载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