Collections problem - Resolved!!!

[rudvs2]

hi all I cant quite figure out what i have done wrong with the following code............... anybody who can point out where i have messed up would be appreciated

Private Sub clrTxtBoxes()
Dim frm As Form
Dim ctl As TextBox
    
    Set frm = Form1
    
    For Each ctl In frm
        ctl.Text = ""
    Next ctl
 
End Sub

Thanks in advance