neu

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MySearchBox.vb

@@ -98,6 +98,13 @@ Public Class MySearchBox
             ' If dgv Is Nothing Then dgv = usrcntl.dgvKundenAktiv
             ' If dgvInaktiv Is Nothing Then dgvInaktiv = usrcntl.dgvKundenInAktiv
 
+            If e.KeyCode = Keys.ShiftKey Or e.KeyCode = Keys.Shift Or e.KeyCode = Keys.Alt Or e.KeyCode = Keys.Control Or e.KeyCode = Keys.Left Or e.KeyCode = Keys.Right Or e.KeyCode = Keys.End Or e.KeyCode = Keys.Home Or e.KeyCode = Keys.CapsLock Then 'Bei Shift Tab..
+                If usrcntl IsNot Nothing Then usrcntl.Visible = False
+                e.Handled = True
+                Exit Sub
+            End If
+
+
             If e.KeyCode = Keys.Tab Then
                 If usrcntl IsNot Nothing Then usrcntl.Visible = False
                 e.Handled = True