vb动态加入ShockwaveFlash后怎么用ShockwaveFlash1_FSCommand？

Question

我添加ShockwaveFlash控件，保存时提示“系统错误&H80004005 (-2147467259). 未指定的错误”
我用动态方法添加，但接受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)？应怎么写？

Answer 1

申明Private WithEvents ShockwaveFlash1 As ShockwaveFlashObjectsCtl.ShockwaveFlash然后把你动态生成的空间赋值给set ShockwaveFlash1=controls.add(...

Answer 2

我原来的语句是
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'项取消选定，来改正此错误。