<code>Private Sub Form_QueryUnload(Cancel As Integer, _
  UnloadMode As Integer)
 
  If UnloadMode = vbFormControlMenu Then
    <font color=green>' Das Formular wird per Schliessen-Symbol
    ' geschlossen</font>
    Cancel = True
    Me.Hide
  End If
End Sub</code>