'Button Auf Form1
Private Sub Command1_Click()
   'Form2 anzeigen. Beim ersten Show wird automatisch ein Load ausgeführt
   Form2.Show
End Sub
 
'Button auf Form1
Private Sub Command2_Click()
   'Form2 anzeigen. Load wird nicht mehr ausgeführt
   Form2.Show
End Sub
 
'Unload-Event von Form1
Private Sub Form_Unload(Cancel As Integer)
  'Dafür sorgen, dass alle evtl. noch geladenen
  'Formen entladen und der Speicher freigegeben wird
  Dim F As Form
    For Each F In Forms
      Unload F
       Set F = Nothing
    Next
End Sub

'Button auf Form2
Private Sub Command1_Click()
  'Form2 verstecken (ausblenden ohne zu entladen)
  Me.Hide
End Sub

Gru? aus dem Norden
manyki