Jak wykryć, czy jest wciśnięty klawisz Num Lock?

Jeśli chcesz sprawdzić, czy świeci się „lampka” przy klawiszu Num Lock, można skorzystać z Win32API.

#If VBA7 Then
    Public Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As LongPtr) As Integer
#Else
    Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
#End If

Function NumLockEnabled() As Boolean
    NumLockEnabled = (GetKeyState(vbKeyNumlock) = 1)
End Function

Aby np. wyświetlić status klawisza Num Lock na etykiecie można użyć następującego kodu:

    If NumLockEnabled = True Then
        lblNUM.Caption = "NUM"
    Else
        lblNUM.Caption = ""
    End If