KeyboardMonitor -TizzyT

Public Class KeyboardMonitor
    Private Shared _Keys As New List(Of Keys)
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As Short
    Public Shared Function KeyState(ByVal Key As Keys) As Boolean
        If GetKeyState(Key) < 0 Then Return True Else Return False
    End Function
    Public Shared Function GetKeyStates(Optional ByVal Keys() As Keys = Nothing) As KeyStates
        If Keys Is Nothing Then
            Return New KeyStates(True)
        Else
            Return New KeyStates(False, Keys)
        End If
    End Function
    Public Shared Sub AddKey(ByVal Key As Keys)
        If _Keys.Contains(Key) = False Then _Keys.Add(Key)
    End Sub
    Public Shared Sub AddKeys(ByVal [Keys]() As Keys)
        For Each K As Keys In [Keys]
            If _Keys.Contains(K) = False Then _Keys.Add(K)
        Next
    End Sub
    Public Shared Function RemoveKey(ByVal Key As Keys) As Boolean
        Return _Keys.Remove(Key)
    End Function
    Public Shared Function RemoveKeys(ByVal [Keys]() As Keys) As Boolean
        RemoveKeys = True
        For Each K As Keys In [Keys]
            If RemoveKeys Then RemoveKeys = _Keys.Remove(K) Else _Keys.Remove(K)
        Next
    End Function
    Public Structure KeyStates
        Private _Key As Dictionary(Of Keys, Boolean)
        Public Sub New(ByVal Poll As Boolean, Optional ByVal Keys() As Keys = Nothing)
            _Key = New Dictionary(Of Keys, Boolean)
            If Poll Then
                For Each K As Keys In _Keys
                    If GetKeyState(K) < 0 Then _Key.Add(K, True)
                Next
            Else
                For Each K As Keys In Keys
                    If GetKeyState(K) < 0 Then _Key.Add(K, True)
                Next
            End If
        End Sub
        Default Public ReadOnly Property State(ByVal Key As Keys) As Boolean
            Get
                If _Key.ContainsKey(Key) Then Return _Key(Key) Else Return False
            End Get
        End Property
    End Structure
    Public Enum Keys
        None = 0
        LButton = 1
        RButton = 2
        Cancel = 3
        MButton = 4
        XButton1 = 5
        XButton2 = 6
        Back = 8
        Tab = 9
        LineFeed = 10
        Clear = 12
        Enter = 13
        [Return] = 13
        ShiftKey = 16
        ControlKey = 17
        Menu = 18
        Pause = 19
        CapsLock = 20
        Capital = 20
        HangulMode = 21
        HanguelMode = 21
        KanaMode = 21
        JunjaMode = 23
        FinalMode = 24
        KanjiMode = 25
        HanjaMode = 25
        Escape = 27
        IMEConvert = 28
        IMENonconvert = 29
        IMEAccept = 30
        IMEAceept = 30
        IMEModeChange = 31
        Space = 32
        Prior = 33
        PageUp = 33
        PageDown = 34
        [Next] = 34
        [End] = 35
        Home = 36
        Left = 37
        Up = 38
        Right = 39
        Down = 40
        [Select] = 41
        Print = 42
        Execute = 43
        Snapshot = 44
        PrintScreen = 44
        Insert = 45
        Delete = 46
        Help = 47
        D0 = 48
        D1 = 49
        D2 = 50
        D3 = 51
        D4 = 52
        D5 = 53
        D6 = 54
        D7 = 55
        D8 = 56
        D9 = 57
        A = 65
        B = 66
        C = 67
        D = 68
        E = 69
        F = 70
        G = 71
        H = 72
        I = 73
        J = 74
        K = 75
        L = 76
        M = 77
        N = 78
        O = 79
        P = 80
        Q = 81
        R = 82
        S = 83
        T = 84
        U = 85
        V = 86
        W = 87
        X = 88
        Y = 89
        Z = 90
        LWin = 91
        RWin = 92
        Apps = 93
        Sleep = 95
        NumPad0 = 96
        NumPad1 = 97
        NumPad2 = 98
        NumPad3 = 99
        NumPad4 = 100
        NumPad5 = 101
        NumPad6 = 102
        NumPad7 = 103
        NumPad8 = 104
        NumPad9 = 105
        Multiply = 106
        Add = 107
        Separator = 108
        Subtract = 109
        [Decimal] = 110
        Divide = 111
        F1 = 112
        F2 = 113
        F3 = 114
        F4 = 115
        F5 = 116
        F6 = 117
        F7 = 118
        F8 = 119
        F9 = 120
        F10 = 121
        F11 = 122
        F12 = 123
        F13 = 124
        F14 = 125
        F15 = 126
        F16 = 127
        F17 = 128
        F18 = 129
        F19 = 130
        F20 = 131
        F21 = 132
        F22 = 133
        F23 = 134
        F24 = 135
        NumLock = 144
        Scroll = 145
        LShiftKey = 160
        RShiftKey = 161
        LControlKey = 162
        RControlKey = 163
        LMenu = 164
        RMenu = 165
        BrowserBack = 166
        BrowserForward = 167
        BrowserRefresh = 168
        BrowserStop = 169
        BrowserSearch = 170
        BrowserFavorites = 171
        BrowserHome = 172
        VolumeMute = 173
        VolumeDown = 174
        VolumeUp = 175
        MediaNextTrack = 176
        MediaPreviousTrack = 177
        MediaStop = 178
        MediaPlayPause = 179
        LaunchMail = 180
        SelectMedia = 181
        LaunchApplication1 = 182
        LaunchApplication2 = 183
        OemSemicolon = 186
        Oem1 = 186
        Oemplus = 187
        Oemcomma = 188
        OemMinus = 189
        OemPeriod = 190
        Oem2 = 191
        OemQuestion = 191
        Oem3 = 192
        Oemtilde = 192
        Oem4 = 219
        OemOpenBrackets = 219
        OemPipe = 220
        Oem5 = 220
        OemCloseBrackets = 221
        Oem6 = 221
        OemQuotes = 222
        Oem7 = 222
        Oem8 = 223
        Oem102 = 226
        OemBackslash = 226
        ProcessKey = 229
        Packet = 231
        Attn = 246
        Crsel = 247
        Exsel = 248
        EraseEof = 249
        Play = 250
        Zoom = 251
        NoName = 252
        Pa1 = 253
        OemClear = 254
        KeyCode = 65535
        Shift = 65536
        Control = 131072
        Alt = 262144
        Modifiers = -65536
    End Enum
End Class