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