NumLock

I use this module for finding and setting key states, just call SetKeyState(VK_NUMLOCK, 0) and it should work:

Code:

'Enumerations: Public Enum VKButtons ' Virtual Keys, Standard Set VK_LBUTTON = &H1 VK_RBUTTON = &H2 VK_CANCEL = &H3 VK_MBUTTON = &H4 ' NOT contiguous with L RBUTTON VK_BACK = &H8 VK_TAB = &H9 VK_CLEAR = &HC VK_RETURN = &HD VK_SHIFT = &H10 VK_CONTROL = &H11 VK_MENU = &H12 VK_PAUSE = &H13 VK_CAPITAL = &H14 VK_ESCAPE = &H1B VK_SPACE = &H20 VK_PRIOR = &H21 VK_NEXT = &H22 VK_END = &H23 VK_HOME = &H24 VK_LEFT = &H25 VK_UP = &H26 VK_RIGHT = &H27 VK_DOWN = &H28 VK_SELECT = &H29 VK_PRINT = &H2A VK_EXECUTE = &H2B VK_SNAPSHOT = &H2C VK_INSERT = &H2D VK_DELETE = &H2E VK_HELP = &H2F ' VK_A thru VK_Z are the same as their ASCII equivalents: 'A' thru 'Z' ' VK_0 thru VK_9 are the same As their ASCII equivalents: '0' thru '9' VK_NUMPAD0 = &H60 VK_NUMPAD1 = &H61 VK_NUMPAD2 = &H62 VK_NUMPAD3 = &H63 VK_NUMPAD4 = &H64 VK_NUMPAD5 = &H65 VK_NUMPAD6 = &H66 VK_NUMPAD7 = &H67 VK_NUMPAD8 = &H68 VK_NUMPAD9 = &H69 VK_MULTIPLY = &H6A VK_ADD = &H6B VK_SEPARATOR = &H6C VK_SUBTRACT = &H6D VK_DECIMAL = &H6E VK_DIVIDE = &H6F VK_F1 = &H70 VK_F2 = &H71 VK_F3 = &H72 VK_F4 = &H73 VK_F5 = &H74 VK_F6 = &H75 VK_F7 = &H76 VK_F8 = &H77 VK_F9 = &H78 VK_F10 = &H79 VK_F11 = &H7A VK_F12 = &H7B VK_F13 = &H7C VK_F14 = &H7D VK_F15 = &H7E VK_F16 = &H7F VK_F17 = &H80 VK_F18 = &H81 VK_F19 = &H82 VK_F20 = &H83 VK_F21 = &H84 VK_F22 = &H85 VK_F23 = &H86 VK_F24 = &H87 VK_NUMLOCK = &H90 VK_SCROLL = &H91 ' ' VK_L VK_R - left And right Alt, Ctrl And Shift virtual keys. ' Used only as parameters to GetAsyncKeyState() and GetKeyState(). ' No other API Or message will distinguish left And right keys In this way. ' / VK_LSHIFT = &HA0 VK_RSHIFT = &HA1 VK_LCONTROL = &HA2 VK_RCONTROL = &HA3 VK_LMENU = &HA4 VK_RMENU = &HA5 VK_ATTN = &HF6 VK_CRSEL = &HF7 VK_EXSEL = &HF8 VK_EREOF = &HF9 VK_PLAY = &HFA VK_ZOOM = &HFB VK_NONAME = &HFC VK_PA1 = &HFD VK_OEM_CLEAR = &HFE End Enum 'Types: Private Type KeyboardBytes kbByte(0 To 255) As Byte End Type 'API Declarations: Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As KeyboardBytes) As Long Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As KeyboardBytes) As Long Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer 'Returns -127 or -128 if the specified key is down, and 0 or 1 of not (alternates each time key is pressed) 'Returns True if the specified key is down and False if not Public Function IsButtonActive(ByVal VirtualKey As VKButtons) As Boolean On Local Error Resume Next IsButtonActive = (GetKeyState(VirtualKey) < -1) End Function Public Sub SetKeyState(ByVal VirtualKey As VKButtons, _ Optional ByVal Value As Integer = -1) On Local Error Resume Next Dim kbbState As KeyboardBytes 'Get the current keyboard state Call GetKeyboardState(kbbState) 'Invert the state if missing If Value = -1 Then Value = IIf(kbbState.kbByte(VirtualKey) = 0, 1, 0) 'Change the desired key to the new value kbbState.kbByte(VirtualKey) = Value Call SetKeyboardState(kbbState) End Sub