Dim Mycmd as Control
Private Sub CommandButton1_Click()
 
    Set Mycmd = Controls.Add("MSForms.CommandButton.1") ', CommandButton2, 
    ' Visible)
    Mycmd.Left = 18
    Mycmd.Top = 150
    Mycmd.Width = 175
    Mycmd.Height = 20
    Mycmd.Caption = "This is fun." & Mycmd.Name
 
End Sub
 
Private Sub UserForm_AddControl(ByVal Control As _
    MSForms.Control)
    Label1.Caption = "Control was Added."
End Sub

dim Mycmd as CommandButton
...
Set Mycmd=UserForm1.Controls.Add("VB.CommandButton","Name")