Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Controls and Errors

Sub FormFonts(strFont As String)        On Error GoTo FormFonts_Err        Dim frmCurrent As Form        Dim ctlControl As Control             For Each frmCurrent In Forms           For Each ctlControl In frmCurrent.Controls              ctlControl.FontName = strFont            Next         Next       FormFonts_Exit:         Exit Sub       FormFonts_Err:         If Err.Number = 438 Then            Resume Next         Else            MsgBox Err.Description            Resume FormFonts_Exit         End If End Sub