MyButton() as ComandMyButton в run-time

Public Sub mk()
Set MyButton = Form1.Controls.Add("VB.CommandButton", "My")
With MyButton
.Index = 0
End With
 
Form1.Control.Load My(1) ' это не получается... как?
With My
.Height = 300
.Width = 1000
.Caption = "45"
.Top = 100
.Left = 0
.Visible = True
End With
End Sub

'в классе
Public WithEvents command1 As VB.CommandButton
Private Sub command1_Click()
MsgBox command1.Name
End Sub

'в модуле
Public commands() As CmbClass
Public num As Integer
Public Sub addButton(obj As Object)
ReDim Preserve commands(num)
Set commands(num) = New CmbClass
Set commands(num).command1 = obj.Controls.Add("VB.CommandButton", "Command" & num, obj)
With commands(num).command1
    .Top = num * 300
    .Width = 300
    .Height = 300
    .Visible = True
    .Caption = num
End With
num = num + 1
End Sub

'в модуле формы Form1
Private Sub Form_Load()
Form2.Show
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
    Call addButton(Form1)
ElseIf Button = 2 Then
    Call addButton(Form2)
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload Form2
End Sub