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'项取消选定，来改正此错误。