Public Sub AppExit()
  ' erstmal Daten speichern, Globale Variablen auf
  ' Nothing Setzen, Dateien und Datenbanken schließen
  ' (aufräumen halt)
  ...
  ' Dann alle Forms entladen
 
  Unload Form1
  Unload Form2
  Unload Form3
  Unload Form4
 
  ' So und nur für den Fall der Fälle kommt hier der Todesstoß
  End
End Sub

so gehts
 
Private Sub mnuOption1 _Click()
  Me.mnuOption1 .Checked = Not Me.mnuOption1 .Checked
end sub
(Vorausgesetzt mnuOption1  ist wirklich ein Meünüeintrag)