在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.anti-gravitydesign.com