Как создать элементы управления динамически?

Set Label1 = Me.Controls.Add(bstrProgID:="Forms.Label.1")
 
        '''''''''''''''''''''''''''''''''''''''
        'добавление других элементов управления
        'Check - BoxForms.CheckBox.1
        'ComboBox - Forms.ComboBox.1
        'CommandButton - Forms.CommandButton.1
        'Frame - Forms.Frame.1
        'Image - Forms.Image.1
        'Label - Forms.Label.1
        'ListBox - Forms.ListBox.1
        'MultiPage - Forms.MultiPage.1
        'OptionButton - Forms.OptionButton.1
        'ScrollBar - Forms.ScrollBar.1
        'SpinButton - Forms.SpinButton.1
        'TabStrip - Forms.TabStrip.1
        'TextBox - Forms.TextBox.1
        'ToggleButton - Forms.ToggleButton.1
        ''''''''''''''''''''''''''''''''''''
 
        Label1.Visible = True
 
        'цифра 55 высчитана эксперементальным путём
        If Len(ActiveDocument.Path) > 55 Then
            Label1.Height = 90
        Else
            Label1.Height = 70
        End If
 
        Label1.Width = 350
        Label1.Top = 275
        Label1.Left = 12
        'размер шрифта на кнопке
        Label1.Font.Size = 12

Dim n, i
Private Sub Command1_Click(Index As Integer)
If i = 0 Then
For i = 1 To n - 1
Load Command1(i)
Command1(i).Top = Command1(i - 1).Top + Command1(0).Height
Command1(i).Left = Command1(i - 1).Left + Command1(0).Width
Command1(i).Visible = True
Command1(i).Caption = "Command" & i
Next
Else
'Command1_MouseDown
'или
'Label1 = "Вы нажали Command" & Index
End If
End Sub
 
 
 
Private Sub Command1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Select Case Index
Case Index
Label1 = "Вы нажали Command" & Index
End Select
End Sub
 
 
 
Private Sub Form_Load()
n = 10
Command1(0).Top = 0: Command1(0).Left = 0
Command1(i).Caption = "Command" & 0
 
Me.Width = n * Command1(0).Width
Me.Height = (n + 1) * Command1(0).Height
Label1.Left = Me.Width - Label1.Width
Label1.Top = 0
10
End Sub

Public WithEvents Label1 As Label
 
Public Sub Form_Load()
    Set Label1 = Me.Controls.Add("VB.Label", "Label1")  ', ContainerObject
    With Label1
       .Caption = "ksjksjkljsd"
       .AutoSize = True
       .Visible = True
    End With
End Sub
 
Private Sub Label1_Click()
    MsgBox Label1.Name & "_click()"
End Sub

 Set Label1 = Me.Controls.Add("VB.Label", "Label1")  ', ContainerObject
    With Label1
       .Caption = "ksjksjkljsd"
       .AutoSize = True
       .Visible = True
       .Script = {
        ....................
..................
...................
//по мотивам джавы
}
 
    End With