' aufrufende funktion
Private Sub Button1_click(...
dim frm as Form1 = new form1
form1.showdialog() ' hier wird form1_load ausgeführt
form1.close()
form1.dispose()
end Sub

' formular
Private Sub Form1_load(...
me.dialogresult = ok
end Sub