Private Sub downREGISTER(ByVal sender As Object, ByVal e As KeyEventArgs) Handles MainREGISTER.KeyDown Dim proKEY As Short = CShort(e.KeyCode) Select Case Me.MainREGISTER.TabPages.Count Case Is = 7 If e.Control And e.Alt And proKEY = 39 Then Me.MainREGISTER.TabPages.Add(Me.KarteWARTUNG) End If Case Is = 8 If e.Control And e.Alt And proKEY = 37 Then Me.MainREGISTER.TabPages.Remove(Me.KarteWARTUNG) End If End Select End Sub
Frage: Wie kann ich in der o.g. "KeyDown"-Methode ermitten, ob die Umstell-Taste an- oder ausgeschaltet ist.