Public Event DasFormularWirdGeschlossen()
Private Sub btnClose_Click('...
    raiseevent DasFormularWirdGeschlossen()
end Sub

....
Dim frm as Form2
AddHanlder frm.DasFormularWirdGeschlossen, AddressOf _
  me.DasZweiteFormWurdeGeschlossen
...
frm.show()
...
 
Private Sub DasZweiteFormWurdeGeschlossen()
    frm1.InitForm() ' veranlasse das erste formular sich neu aufzubauen
end Sub