Private SUb MakeUfo
  ' BLBLA UAFRUF von datensätzen Nein ich schreib das heir nicht aus 
 
  For I= 1 to DS.COUNT
    Dim loUFO As New form2()      'Form 2 ist bereits vorhanden und fertig 
    ' designt
    loUFO.TopLevel = false
    me.meinpanemitufos.controls.add(loUFO)
    loUFO.Top = I* 30
    loUFO.show()
  next 
 
end sub 
 
'jetzt hab ich in Form2 ein button mit dem ich einen Datensatz hinzufüge ....
 
'Form2 
 
Private sub btn_add_click()
  SQLCommand.CommandText = "insert into datentable values (werte)"
  SQLCommand.executeScalar
  'so damit ich die Werte jetzt auch sehe muß ich natürlich die UFOS neu 
  ' dartsellen
  me.parentForm.makeufo() ' und genau das funzt nicht ......
 
end sub