dim x as new collection

sub addforms
  dim f as new form1
  dim fname as string = "form_" & x.count
  x.add (f, fname)
end sub

sub form_ansprechen(fname as string)
  dim f as form = x(fname)
  f.text = "bla"
end sub

form_ansprechen("form_1")