Private sub GetControl()
Dim ctl as Control
dim frm as form
for each ctl in frm
if typeof ctl is TextBox then
ctl.text=""
end if
next
end sub

---------------------------------------------------------------
Mal verliert man, mal gewinnen die anderen