Меняю CapsLock а лампочка не загорается, а как её зажечь?

Option Compare Database
Option Explicit

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long

Function GetCapsLock() As Boolean
Dim keystat(0 To 255) As Byte
GetKeyboardState keystat(0)
GetCapsLock = (keystat(vbKeyCapital) And 1)
End Function

Sub SetCapsLock(ByVal newValue As Boolean)
' get current state of all 256 virtual keys
Dim keystat(0 To 255) As Byte
GetKeyboardState keystat(0)
' modify bit 0 of the relevant item, and store back
keystat(vbKeyCapital) = (keystat(vbKeyCapital) And &HFE) Or (newValue And 1)
SetKeyboardState keystat(0)
End Sub