Dim ctrlarray() as Array
Dim ctrlarray() as Control
Dim ctrarray() as Objekt
Dim ctrlarray() As Control.ControlCollection

For each c in Controls
ctrlarray(f_cindex).Add(ctrl)        'für die letztgenannte Variante
f_cindex =+1
Next

for each c in Controls
if typeof c is System.Windows.Forms."CONTROLTYP" then  'TextBox, CheckBox, etc.
c.enabled=false
end if
next