SetNumLockKey – Set the state of the Num Lock key

SetNumLockKey – Set the state of the Num Lock key

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _    ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As _    LongPrivate Const KEYEVENTF_KEYUP = &H2Sub SetNumLockKey(ByVal newState As Boolean)    ' if the current state must be changed    If CBool(GetKeyState(vbKeyNumlock))  newState Then        ' programmatically press and release the NumLock key        keybd_event vbKeyNumlock, 0, 0, 0        keybd_event vbKeyNumlock, 0, KEYEVENTF_KEYUP, 0    End IfEnd Sub


About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist