Sub Add_Dynamic_CommandButton()
    
    'Add Dynamic CommandButton and assign it to object 'CmdBtn'
    Set CmdBtn = UserForm2.Controls.Add("Forms.CommandButton.1")
    With CmdBtn
        .Caption = "CommandButton"
        .Left = 12
        .Top = 10
        .Width = 102
    End With

    UserForm2.Show
End Sub

Sub add_Label()
    'dodaj label
      Set Labela = UserForm2.Controls.Add("Forms.label.1")
          With Labela
        .Caption = "Ovo je labela"
        .Left = 12
        .Top = 50
        .Width = 102
    End With
    UserForm2.Show
End Sub

Sub add_Text()
    'dodaj txtbox
    Set ctlTxt = UserForm2.Controls.Add("Forms.TextBox.1")
    With ctlTxt
        .Value = "Neki tekst"
        .Top = 12
        .Left = 12
        .Width = 150
    End With
    UserForm2.Show
End Sub