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