Access 2016 set control events at runtime

问题

Is there a way to add an event handler for a control at runtime?

Regard this code (in the form I have only TextBox1):

Option Compare Database
Option Explicit

Dim WithEvents tb As Access.TextBox

Private Sub Form_Load()
  set tb = TextBox1
End Sub

Private Sub tb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Debug.Print "tb_MouseDown"
End Sub

Private Sub TextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Debug.Print "TextBox1_MouseDown"
End Sub

With that code, the two handlers are called.
If I remove the handler TextBox1_MouseDown, the tb_MouseDown is not fired.

来源：https://stackoverflow.com/questions/43219351/access-2016-set-control-events-at-runtime