こんな感じかのぅ？

Private Sub Command1_Click()
Dim ctl As Control

For Each ctl In Me.Controls
ctl.Visible = False
Next

End Sub