Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Change fonts of controls on a form

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