Dim WithEvents command1 As VB.CommandButton
Private Sub Form_Load()
Set command1 = Controls.Add("vb.commandButton", "Command1")
command1.Visible = True
command1.Width =  300 
command1.Caption =  1 
End Sub
Private Sub Command1_Click()
MsgBox command1.Name
End Sub[SRC vba]

Dim Commands( 9 ) As VB.CommandButton
Dim num As Integer
Private Sub Form_Load()
    For num =  0  To  9 
            Set Commands(num) = Controls.Add("VB.CommandButton", "Commands" & num, Form1)
            Commands(num).Top = num *  300 
            Commands(num).Visible = True
            Commands(num).Width =  300 
            Commands(num).Height =  300 
     Commands(num).Caption = num
    Next num
End Sub