Hide All

How can I hide everything on a form.

Like all my labels, checks, texts etc.

VB Code:

Dim c as Control
 
For Each c in Controls
    c.Visible = False
Next

VB Code:

Dim TempCtrl As Control
    
    On Error Resume Next
    For Each TempCtrl In Me.Controls
        TempCtrl.Visible = False
    Next

It hides my menu...what do I do.

VB Code:

Dim c As Control
    
For Each c In Controls
    If Not TypeOf c Is Menu Then
        c.Visible = False
    End If
Next