KnMmonitor -TizzyT

'Keyboard and Mouse monitor
Public Class KnMmonitor
    Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Integer) As SByte
    Public Shared ReadOnly Property Keyboard(ByVal Key As KeyBoardKeys) As State
        Get
            Return New State(GetKeyState(Key))
        End Get
    End Property
    Public Structure State
        Private ReadOnly Value As SByte
        Public Shared Widening Operator CType(ByVal State As State) As Boolean
            If State.Value < 0 Then Return True Else Return False
        End Operator
        Public Shared Widening Operator CType(ByVal State As State) As SByte
            Return State.Value
        End Operator
        Public Sub New(ByVal Value As SByte)
            Me.Value = Value
        End Sub
    End Structure
    Public Shared ReadOnly Property Mouse(ByVal Button As MouseButtons) As State
        Get
            Return New State(GetKeyState(Button))
        End Get
    End Property
    Public Enum MouseButtons
        None = 0
        LButton = 1
        RButton = 2
        MButton = 4
        XButton1 = 5
        XButton2 = 6
    End Enum
    Public Enum KeyBoardKeys
        None = 0
        Cancel = 3
        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