diff --git a/Controls.LookupGrid/frmLookupGrid.vb b/Controls.LookupGrid/frmLookupGrid.vb
index 3abfeda0..88467fd8 100644
--- a/Controls.LookupGrid/frmLookupGrid.vb
+++ b/Controls.LookupGrid/frmLookupGrid.vb
@@ -155,15 +155,14 @@ Public Class frmLookupGrid
     End Sub
 
     Private Sub gridLookup_KeyUp(sender As Object, e As KeyEventArgs) Handles gridLookup.KeyUp
-        Select Case e.KeyCode
-            Case Keys.Escape
-                Close()
-            Case Keys.F1
-                SaveSelectedValues()
+        If e.KeyCode = Keys.Escape Then
+            Close()
+        ElseIf e.KeyCode = Keys.S And e.Control Then
+            SaveSelectedValues()
 
-                DialogResult = DialogResult.OK
-                Close()
-        End Select
+            DialogResult = DialogResult.OK
+            Close()
+        End If
     End Sub
 
     Private Sub viewLookup_CellValueChanging(sender As Object, e As Views.Base.CellValueChangedEventArgs) Handles viewLookup.CellValueChanging