vb动态加入ShockwaveFlash后如何用ShockwaveFlash1_FSCommand

vb动态加入ShockwaveFlash后怎么用ShockwaveFlash1_FSCommand？
我添加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)？应怎么写？

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