Обработчик событий для динамически созданного массива контролов

Option Explicit
Dim WithEvents Button As CommandButton
 
Private Sub Command1_Click()
    MsgBox "Hi"
End Sub
 
Private Sub Form_Load()
    Set Button = Controls.Add("vb.CommandButton", "Command1")
    Button.Visible = 1
End Sub

MsgBox Controls(0).Name 'Так как это единственный элемент на форме

Option Explicit
Dim WithEvents Button As CommandButton
 
Private Sub Button_Click()
    MsgBox "Hi"
End Sub
 
Private Sub Form_Load()
    Set Button = Controls.Add("vb.CommandButton", "Button")
    Button.Visible = 1
End Sub

Private Sub Form_Load()
    Set Button = Controls.Add("vb.CommandButton", "Command1")
    Button.Visible = 1
    
    Set Button = Controls.Add("vb.CommandButton", "Command2")
    Button.Visible = 1
    
    Set Button = Controls.Add("vb.CommandButton", "Command3")
    Button.Visible = 1
End Sub

Option Explicit
 
Dim WithEvents btn As CommandButton
Dim frm As frmmain
 
Public Sub SetHandler(Control As frmmain)
    Set frm = Control
End Sub
Public Sub SetButton(Control As CommandButton)
    Set btn = Control
End Sub
Private Sub btn_Click()
    frm.MyEvent btn
End Sub

Option Explicit
 
Dim Col As Collection
 
Public Sub MyEvent(Control As CommandButton)
    MsgBox Control.Name
End Sub
 
Private Sub Form_Load()
    Dim i   As Long
    Dim btn As CommandButton
    Dim wrp As clsEventWrapper
    
    Set Col = New Collection
    
    For i = 0 To 10
        Set wrp = New clsEventWrapper
        wrp.SetHandler Me
        Set btn = Me.Controls.Add("VB.CommandButton", "btn" & CStr(i))
        btn.Move 5, i * (btn.Height + 100)
        btn.Visible = True
        wrp.SetButton btn
        Col.Add wrp
    Next
End Sub

Private Sub Form_Load()
    Dim o
    Const sL = 100, sz = 500, sT = sz + sL * 2
    Dim j$(), s$, i&, h&
    s = s & "7 8 9 = CE Sqr "
    s = s & "4 5 6 ( ) x^y "
    s = s & "1 2 3 + - Fix "
    s = s & "0 , % * / Mod "
    Set Script = CreateObject("MSScriptControl.ScriptControl"): Script.Language = "VBScript"
    Set col = New Collection: j = Split(s)
    For Y = 0 To nY - 1: For X = 0 To nX - 1
            Set Matrix32(X, Y) = Controls.Add("vb.CommandButton", "cmm_" & X & Y)
            With Matrix32(X, Y)
                Select Case X
                Case 3, 4: .Move sL * 2 + X * sz, sT + Y * sz, sz, sz: .Visible = 1
                Case 5: .Move sL * 3 + X * sz, sT + Y * sz, sz * 1.5, sz: .Visible = 1
                Case Else: .Move sL + X * sz, sT + Y * sz, sz, sz
                End Select:  .FontSize = 10: .FontBold = 1: .Caption = j(i): i = i + 1: .Visible = 1
            End With
    Next: Next
    Set cmb = Controls.Add("vb.ComboBox", "cmb")
    With cmb
        .FontSize = 10: h = .Height
        .Move sL, Matrix32(0, 0).Top - h - sL, (Matrix32(nX - 1, 0).Left + Matrix32(nX - 1, 0).Width) - sL: .Visible = 1: .Text = 0
        Me.Width = .Width + sL * 2 + (Me.Width - ScaleWidth)
    End With
    Set o = Controls("cmm_" & X - 1 & Y - 1)
    Me.Height = o.Top + o.Height + sz + sL
    Me.Caption = "Калькулятор VB ... © Антихакер32™"
End Sub
 
Private Sub cmm_LostFocus()
    If ActiveControl.Name Like "cmm_##" Then Set cmm = ActiveControl
End Sub