'in form1
 
private sub btnLaden()
 
     dim fk as new formKalkulieren(me)
     fk.activate()
     fk.show()
 
end sub

public sub new(byval f as form1)
 
     form() = f
 
end sub
 
'die veränderten werte werden dann wieder an die form1 zurückgegeben
 
public sub uebernehmen()
 
     form().txtVK.text = me.txtVK.text
     form().txtEK.text = me.txtEK.text
     .
     .
     .
 
end sub