Copyallitems and font changes

I’m copying all items to a new and different form, but the font changes on the entire form, even the text typed on the form.

Call doc.CopyAllItems(newDoc)

Call uidoc.Close

Call uiwks.EditDocument( True , newDoc)

I selected all of the text on the form and made it arial but when the form displays it displays with an ugly courier-like font.

What do I need to do to fix this?