Mega Code Archive

 

Categories / VisualBasic Script / Forms

 

Control Types

Sub main()    For Each frmCurrent In Forms       For Each ctlControl In frmCurrent.Controls          If ctlControl.Type <> acCheckBox Then             ctlControl.font = strFont          End If       Next    Next End Sub