在VB中播放Flash动画

VB中SWFLASH控件能让用户在VB中播放Flash(swf格式)动画,我在一次作软件封面时,采用了Flash动画作欢迎画面,但是由于控件没有关于swf播放结束的事件,咱又不懂得FS COMMAND,只好想了个别的办法,源程序如下:
控件:timer1,ShockwaveFlash1
?  
Private Sub Form_Load()
'=========设置窗口属性===============
form1.BoederStyle=0
ShockwaveFlash1.Top = 0
ShockwaveFlash1.Left = 0
ShockwaveFlash1.Height = Me.ScaleHeight
ShockwaveFlash1.Width = Me.ScaleWidth
?  
'=======设置swf文件的路径============
ShockwaveFlash1.Movie ="c:\welcome.swf"
ShockwaveFlash1.Play '播放
End Sub
?  
Private Sub Timer1_Timer()
If ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames - 1 Then
ShockwaveFlash1.Stop
Unload Me
?  
'=======显示你的程序主窗口=========
?  
End If
End Sub

原文转自：http://www.ltesting.net