Forms VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Forms
  4. 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