diff --git a/gui/MainForm.dfm b/gui/MainForm.dfm
index f14fa94..8d4328d 100644
--- a/gui/MainForm.dfm
+++ b/gui/MainForm.dfm
@@ -117,9 +117,11 @@ object MainFrm: TMainFrm
       Caption = 'Driver'
       object UnloadOnExitMenuItem: TMenuItem
         Caption = 'Unload on exit'
+        OnClick = DriverMenuItemClick
       end
       object UninstallOnExitMenuItem: TMenuItem
         Caption = 'Uninstall on exit'
+        OnClick = DriverMenuItemClick
       end
     end
     object ColumnsMenuItem: TMenuItem
diff --git a/gui/MainForm.pas b/gui/MainForm.pas
index 408d79f..72baae0 100644
--- a/gui/MainForm.pas
+++ b/gui/MainForm.pas
@@ -61,6 +61,7 @@
     procedure WatchDriverNameMenuItemClick(Sender: TObject);
     procedure SortbyIDMenuItemClick(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure DriverMenuItemClick(Sender: TObject);
   Private
 {$IFDEF FPC}
     FAppEvents: TApplicationProperties;
@@ -292,6 +293,14 @@
 FModel.Clear;
 end;
 
+Procedure TMainFrm.DriverMenuItemClick(Sender: TObject);
+Var
+  M : TMenuItem;
+begin
+M := Sender As TMenuItem;
+M.Checked := Not M.Checked;
+end;
+
 Procedure TMainFrm.RefreshNameCacheMenuItemClick(Sender: TObject);
 Var
   err : Cardinal;