Private Sub Command1_Click()

For i = 0 To (Form1.Controls.Count - 1)

Set ctrlTarget = Form1.Controls(i)

'If it's a textbox, clear it

If TypeOf ctrlTarget Is TextBox Then

ctrlTarget.Text = ""

End If

Next i

End Sub
Baksana59

__________________