CodeItBetter Programming Another VB Programming Blog

'System & API - How to get the NumLock state whether it is on or off

Option Explicit
 
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
 
Public Function NumLockOn() As Boolean
    'This function will tell us whether the capslock is on or off
    Dim iKeyState As Integer
    iKeyState = GetKeyState(vbKeyNumlock)
    NumLockOn = (iKeyState = 1 Or iKeyState = -127)
End Function
 
'How can I call this function:
Sub Main()
    If NumLockOn Then
        Call MsgBox("NumLock is On", vbInformation, App.Title)
    Else
        Call MsgBox("NumLock is Off", vbInformation, App.Title)
    End If
End Sub