Private Sub Command1_Click()
  Unload Me
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  Select Case UnloadMode
    Case vbFormControlMenu
      Cancel = 1
    Case Else
      Set Form1 = Nothing
  End Select
End Sub

Gruß
Marcus