Private sub Form2_aufrufen()
'.....
set Form2.RefForm=me
end sub
 
Public Sub aktualisieren()
   'hier einfach auf die öffentlichen Daten aus dem Modul zurückgreifen und die 
   ' Form     
   'aktualisieren
end sub

Private m_Form as Form
Public Property Set RefForm(byref f as Form)
   set m_Form=f
end Property
 
Private Sub fertig()
    'Prozedur im jeweiligen Form speichern
    if not m_Form is nothing then m_Form.aktualisieren
end sub