怎样动态真加控件，并为其单独编事件？谢谢！！

Question

用Controls.Add啊
private WithEvents txtNew as TextBox
set txtNew=me.controls.add("VB.TextBox","txtNew")

Answer 1

看下面的例程：
   Optional explicit   private withevents cmdmybutton as commnadbutton
   'WithEvents 设定 cmdmybutton 是响应由对象所触发的事件的对象变量
   private sub form_load()
     '动态添加按钮
      set cmdmybutton = controls.add("VB.CommandButton","Button")
      with cmdmybutton
           .visible=true
           .width=300
           .captional="Hello"
           .top=100
           .left=100
      end with
   end sub
  
 private sub cmdmybutton_Click()
       msgbox "Hello"
 end sub 

Answer 2

如有一text1(0)控件,(0)表示index属性为0
加载: load text(1)
事件只可如下:
private sub text_click()
select text.index
case 0
.....
case 1
.....
end select
end sub