Const VK_NUMLOCK = &H90
 
Private Type KeyboardBytes
     kbByte(0 To 255) As Byte
End Type
 
Private Declare Function GetKeyboardState Lib "user32" (kbArray As _
  KeyboardBytes) As Long
Private Declare Function SetKeyboardState Lib "user32" (kbArray As _
KeyboardBytes) As Long
 
 
Private Sub Getstate()
Dim kbArray As KeyboardBytes, CapsLock As Boolean, kbOld As KeyboardBytes
GetKeyboardState kbArray
kbArray.kbByte(VK_NUMLOCK) = 0
SetKeyboardState kbArray
End Sub