Adding Control on Existing Userform on the fly

[almoiter]

What I missed. I already added the MS VBA Extensibility 5.3 on a VBA Reference. but still got an error. Please Help.

Line1: Dim objForm as object
Line2: Set objForm = ThisWorkbook.VBProject.VBComponents("UserForm1").Designer
Line3: Set Butn = objForm.Controls.Add("Forms.CommandButton.1")

The error is on Line3, "Runtime Error '91': Object Variable or With block variable not set"

 

[mikerickson]

This worked for me. But it would fail if the userform were visible or if called from the userform
Dim ufObj As Object, newButton As MSForms.CommandButton

Set ufObj = ThisWorkbook.VBProject.VBComponents("UserForm1").Designer
With ufObj
    Set newButton = .Controls.Add("Forms.CommandButton.1")
    With newButton
        .Top = 10
        .Left = 10
        .Caption = "new"
        .AutoSize = True
    End With
End With

 

[almoiter]

Thank you very much Mike, now I realized why it gives me error. The code was called on the same form (Userform1), on which i tried to add the button. the error is gone.

More power to you sir.