Tools -> References -> Microsoft Visual Basic for Applications Extensibility xxx
Sub test()
Dim form As Object
Set form = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
' them control, code
VBA.UserForms.Add (form.Name)
UserForms(0).Show...