动态添加用户表单textbox控件_click事件不触发？(但_change可以工作) (VBA)

Private Sub AddTextBox_Click()
    Dim newTextBox As Object
    Set newTextBox = Me.Controls.Add("Forms.TextBox.1")
    newTextBox.Name = "DynamicTextBox"
    newTextBox.Left = 100
    newTextBox.Top = 100
    newTextBox.Width = 100
    newTextBox.Height = 20
    newTextBox.Activate ' 手动激活控件
End Sub

Private Sub DynamicTextBox_Click()
    MsgBox "Click event triggered!"
End Sub

Private Sub AddTextBox_Click()
    Dim newTextBox As Object
    Set newTextBox = Me.Controls.Add("Forms.TextBox.1")
    newTextBox.Name = "DynamicTextBox"
    newTextBox.Left = 100
    newTextBox.Top = 100
    newTextBox.Width = 100
    newTextBox.Height = 20
    AddHandler newTextBox.MouseDown, AddressOf DynamicTextBox_Click ' 添加MouseDown事件处理程序
End Sub

Private Sub DynamicTextBox_Click()
    MsgBox "Click event triggered!"
End Sub