' Form1, die Form2 anzeigen soll, falls bestimmte Bedingungen (nicht) erfüllt:
Dim oForm As New Form2
oForm.Init()
oForm = Nothing

' Form2:
Public Sub Init()
  ' Hier die Abfragen aus Form_Load reinsetzen
  ' ...
 
  ' nur falls Form angezeigt werden soll...
  Me.ShowDialog()
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de