This should be enough code to get an idea of what I'm trying to do. Again, this really isn't important, but I like to learn. Just add the code below into a Subprocedure.
Dim EditForm As VBComponent
Set EditForm = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_MSForm)
EditForm.Properties("Font").Object = "Verdana"
You can use Designer to change the font name of objects on the form, just not for the form.
So this works for labels
For i = 1 To 7
With EditForm.Designer.Controls.Add( _
"Forms.Label.1", "lbl" + CStr(i), True)
.Height = 12
.Font.Name = "Verdana"
End With
Next
but not for the entire form.