VBA Excel 如何监控，动态生成的text控件？

Question

。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
引用:
1、建立类模块，取名为：MyClass

Option Explicit
Public WithEvents myBttn As MSForms.CommandButton
Public WithEvents myTxt As MSForms.TextBox

Private Sub myBttn_Click()
MsgBox "单击我干吗?"
End Sub

Private Sub myTxt_Change()
MsgBox "变化了！"
End Sub

2、在模块中定义：

Option Explicit
Public mTxt As New MyClass

3、在窗体中动态添加控件：

Option Explicit
Private Sub UserForm_Activate()
Set mTxt.myBttn = UserForm1.Controls.Add(("Forms.CommandButton.1"), "cmd1", Visible)
Set mTxt.myTxt = UserForm1.Controls.Add(("Forms.TextBox.1"), "txt1", Visible)
End Sub
。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。
上面的代码，是监控一个textbox控件。
现在，假如我动态加载的textbox是数量未定的。或者5个，或者15个。而且名字都是有规律的
比如text00，text01。。。。。，现在如何进行监控他们的change事件？？？？？？？？？

Answer 1

类模块名称MyClass
代码:
Option Explicit
Public WithEvents myBttn As MSForms.CommandButton
Public WithEvents myTxt As MSForms.TextBox
Public Sub click(ctl As MSForms.CommandButton)
Set myBttn = ctl
End Sub
Public Sub change(ctl As MSForms.TextBox)
Set myTxt = ctl
End Sub
Private Sub myBttn_Click()
MsgBox "单击我干吗?"
End Sub '
Private Sub myTxt_Change()
MsgBox myTxt.Text
End Sub
窗体部分代码
Option Explicit
Private mTxt(1 To 3) As MyClass
Dim txt As MSForms.TextBox
Private Sub UserForm_Activate()
Dim i As Integer
For i = 1 To UBound(mTxt)
Set txt = Me.Controls.Add("Forms.TextBox.1", "Textbox" & i)
With txt
.Move 10, 10 + (i - 1) * 40, 80, 30
End With
Set mTxt(i) = New MyClass
mTxt(i).change txt
Next
End Sub

Answer 2

用控件数组