Option Compare Database
Option Explicit

' Declare Type for API call:
 Private Type OSVERSIONINFO
 dwOSVersionInfoSize As Long
 dwMajorVersion As Long
 dwMinorVersion As Long
 dwBuildNumber As Long
 dwPlatformId As Long
 szCSDVersion As String * 128 ' Maintenance string for PSS usage
 End Type
 
 ' API declarations:
 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 GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
 Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long
 
 ' Constant declarations:
 Const VK_NUMLOCK = &H90
 Const KEYEVENTF_EXTENDEDKEY = &H1
 Const KEYEVENTF_KEYUP = &H2

Public Sub KeyNumLockOn()
Dim NumLockState As Boolean
Dim keys(0 To 255) As Byte

GetKeyboardState keys(0)

' NumLock handling:
NumLockState = keys(VK_NUMLOCK)
    If NumLockState <> True Then    'Turn numlock on
        'Simulate Key Press
        keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
        'Simulate Key Release
        keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0
    End If

End Sub