static extern bool SetKeyboardState(byte [] lpKeyState);

    Private Shared Function SetKeyboardState(ByVal lpKeyState() As Byte) As Boolean

    Private Declare Function SetKeyboardState Lib "user32" (ByRef lppbKeyState As Byte) As Integer

        SetKeyboardState(keys(0))

        SetKeyboardState(keys(0))

        SetKeyboardState(keys(0))

        SetKeyboardState(keys(0))