change hotkey for lookup grid to CTRL+S

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
+        If e.KeyCode = Keys.Escape Then
             Close()
-            Case Keys.F1
+        ElseIf e.KeyCode = Keys.S And e.Control Then
             SaveSelectedValues()
 
             DialogResult = DialogResult.OK
             Close()
-        End Select
+        End If
     End Sub
 
     Private Sub viewLookup_CellValueChanging(sender As Object, e As Views.Base.CellValueChangedEventArgs) Handles viewLookup.CellValueChanging