Controls Collection Example

This example enables all currently loaded controls on a form (except menus).

Sub EnableControlsOn (Frm As Form, State As Integer)
   Dim I   ' Declare variable.
   For I = 0 To Frm.Controls.Count - 1
      If Not TypeOf Frm.Controls(I) Is Menu Then
         Frm.Controls(I).Enabled = State
      End If
   Next I
End Sub