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

[argent_huang]

请问各位高手如何捕捉多个动态添加的控件的事件？
如：
set obj=controls.add("vb.textbox","123")
set obj=controls.add("vb.textbox","456")
中，obj.name="123"的事件。

[argent_huang]

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” 的控件数组吧。

[lty]

直接就定义成控件数组不就成了。

[Limu]

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