For...Each...Next problem

I have a big problem with this statement because I get an error on the "Next" part of it. My code looks like this...

Public Sub Clear()
Dim ctlCB As CommandButton
For Each ctlCB In frmNew.Controls
ctlCB.Visible = False
Next ' Error here
End Sub

Any help would be appreciated. Thanks.

Use this:

Code:

---

Private Sub Command2_Click()
    Dim ctl As Control
    For Each ctl In Controls
        If TypeOf ctl Is CommandButton Then
            ctl.Visible = False
        End If
    Next
End Sub

---

That works, thanks Lethal.