如何捕捉“动态”控件事件？

Question

Dim withevent Obj1 as textbox,withevent Obj2 as textbox
private sub Form_Load()
  set obj1=controls.add("vb.textbox","Obj1")
  Set obj2=controls.add("Vb.textbox","Obj2")
End sub
private sub obj1_Change()
end sub
private sub Obj2_change()
End Sub

Answer 1

limu:
  Thank you for the answer first.
But the answer what you give is not i realry want.
我要的是能否有一个通用事件，like "(label*selecter)->" (c++ biulder)
...比如：
private sub obj_click(byref index as integer)
   obj(index).name="123"
end sub
...或定义一个 “withevent” 的控件数组吧。