' Wenn das Programm beendet wird, ohne "Beenden" im Menü auszuwählen, so
  ' wird der Beenden-Befehl ignoriert und das Programm nur in den Tray 
  ' minimiert.
  Private Sub gui_Closing(ByVal sender As Object, ByVal e As _
    System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
    sichern.schreibe_fehler("ENDE")
    e.Cancel = True
    Me.Visible = False
  End Sub

Es ist alles eine Frage der
Relation und Perspektive.