Sub PermanentFormFonts (strFont As String)
Dim objAO As AccessObject
Dim objCP As Object
Dim ctlControl As Control
Set objCP = Application.CurrentProject
For Each objAO In objCP.AllForms
DoCmd.OpenForm objAO.Name, acDesign, , , , acHidden
For Each ctlControl In objAO.Controls
ctlControl.FontName = strFont
Next
DoCmd.Close acForm, objAO.Name
Next
End Sub