[急！]如何响应运行添加的控件的事件

Question

  
 是这样的 
 Dim myControl as control 
 myControl = frame1.controls.add ("FormWork.TextBox1","txtBox") 
 myControl.top = 10 
 myControl.height = 10 
  
  
 可如何响应我这个txtBox文本框的事件？如Enter事件？

Answer 1

Option Explicit
Dim WithEvents myControl As TextBoxPrivate Sub Form_Load()
    
     Set myControl = Controls.Add("VB.TextBox", "txtBox", Frame1)
     With myControl
        .Move 200, 200, 1000, 315
        .Text = ""
        .Visible = True
     End With
    
End SubPrivate Sub MyControl_GotFocus()
   MsgBox "txtobx Get focus."
End Sub

Answer 2

再问一个问题：
因为WithEvents无法创建数组，那要是我要动态生成一大堆相同的控件，而且控件的数目由用户控制，如何响应它们的事件呢？总不能声明一大堆的WithEvents吧，而且也不知道申明多少个啊？