collection control

Hi all,

I want to clear all text box in my form.
dim ctl as control
for each ctl in control
if typeof ctl Is TextBox then
ctl.text = ""
end if
next