用vb编写flash播放器

用vb编写flash播放器 Form2.Caption = FileNames(PlayFileNum) ＋ ″ － Flash动画播放器″ 　　Form2.Show 　　Form2!ShockwaveFlash1.Playing = True 　　If TotalFile = 1 Then PlayFileNum = 0