Did I beat you to it?
Sub test1()
‘ Create a new MSForms.UserForm as a VBComponent
Dim vbc As VBIDE.VBComponent
Set vbc = Application.VBE.VBProjects(“Project”).VBComponents.Add(vbext_ct_MSForm)
‘ Mate the vbComponent to the MSForms object model
Dim ufrm As MSForms.UserForm
Set ufrm = vbc.Designer
‘ Add controls using MSForms object model
Dim myCmd As MSForms.Control
Set myCmd = ufrm.Controls.Add(“Forms.CheckBox.1”)
End Sub