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

Question

Private Sub ctrl_ObjectEvent(Info As EventInfo)
'Debug.Print Info.EventParameters.Item(0).NameSelect Case Info.Name
Case "click"     
Info.EventParameters.Item(0).Value
 Case "MouseDown"dx = Info.EventParameters.Item(2).Value
  Case "Mousemove"
end caseend subSet 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个正常触发，我看了好像不是焦点问题， 什么问题呢 

Answer 1

ctrl只能和一个控件关联，这种加载控件的方式，事件是很难处理的

Answer 2

先在界面上放一个，INDEX设置为0，然后就是load了显示而已。
代码跟原来一样写。

Answer 3

就是问一下ctrl_ObjectEvent(Info As EventInfo)这个事件对于多个控件加载的情况， 是不是只相应最后加载的控件呢， 这样的话这事件没有啥意义了， 我要加载多个控件，每个控件相应自己的事件呀 

Answer 4

用控件数组，用index表示相应的控件，再通过index判断相应的控件事件