vb動態加入ShockwaveFlash後怎麼用ShockwaveFlash1_FSCommand？

我添加ShockwaveFlash控件，保存時提示「系統錯誤&H80004005 (-2147467259). 未指定的錯誤」 主要是因爲flash版本更新的問題！
我用動態方法添加，但接受flash的信息如下語句不會運行。 
Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String) 
   Winsock1.SendData command 
End Sub 

以上語句如果是直接添加是運行正常的。 
是不是動態添加的不能直接用Private Sub ShockwaveFlash1_FSCommand(ByVal command As String, ByVal args As String)？應怎麼寫？

推薦解決方案

申明Private WithEvents ShockwaveFlash1 As ShockwaveFlashObjectsCtl.ShockwaveFlash然後把你動態生成的空間賦值給set ShockwaveFlash1=controls.add(...

其他解決方案

我原來的語句是 
Private ShockwaveFlash1 As Object 
改爲 
Private WithEvents ShockwaveFlash1 As ShockwaveFlashObjectsCtl.ShockwaveFlash 
提示「編譯錯誤：用戶定義類型未定義」（在工程->部件 中未選擇 Shockwave Flash） 
如果在工程->部件 中未選擇 Shockwave Flash，則在 
Set ShockwaveFlash1 = Controls.Add("ShockwaveFlash.ShockwaveFlash", "Flash") 
語句提示「實時錯誤'50153' 'ShockwaveFlash.ShockwaveFlash'不能被加入因爲它被引用但在工程中未被任何項目使用。請把工程選項中的'Remove information about unused ActiveX Controls'項取消選定，來改正此錯誤。