Sub FormFonts (strFont As String)
Dim frmCurrent As Form
Dim ctlControl As Control
For Each frmCurrent In Forms
For each ctlControl In frmCurrent.Controls
ctlControl.FontName = strFont
Next
Next
End Sub