小弟我的动态加载控件全都无法响应objectEvent事件呢

我的动态加载控件全都无法响应objectEvent事件呢
Private Sub ctrl_ObjectEvent(Info As EventInfo)
'Debug.Print Info.EventParameters.Item(0).Name

Select Case Info.Name
Case "click"     
Info.EventParameters.Item(0).Value
 Case "MouseDown"

dx = Info.EventParameters.Item(2).Value
  Case "Mousemove"
end case

end sub

Set ctrl = Controls.Add("testprj.use1", ctlstr, Picture_farther)

Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

RaiseEvent Mousemove(Button, Shift, X, Y)

   
End Sub

我的第1个控件能够相应 Mousemove事件 ，但我加载2个控件后，第1个控件RaiseEvent Mousemove不再能够触发（不能触发到ctrl_ObjectEvent），第2个正常触发，我看了好像不是焦点问题， 什么问题呢 



[解决办法]
ctrl只能和一个控件关联，这种加载控件的方式，事件是很难处理的
[解决办法]
先在界面上放一个，INDEX设置为0，然后就是load了显示而已。
代码跟原来一样写。
[解决办法]
就是问一下ctrl_ObjectEvent(Info As EventInfo)这个事件对于多个控件加载的情况， 是不是只相应最后加载的控件呢， 这样的话这事件没有啥意义了， 我要加载多个控件，每个控件相应自己的事件呀 

[解决办法]