For...Each...Next problem

[Oafo]

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.

[Lethal]

Use this:

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

[Oafo]

That works, thanks Lethal.