VBA判斷按鍵的api

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 MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As KeyboardBytes) As Long
 
Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_EXTENDEDKEY = &H1
Private Type KeyboardBytes
    kbByte(0 To 255) As Byte
End Type
 
Sub CRJJ()
Dim kbarray As KeyboardBytes
GetKeyboardState kbarray
If kbarray.kbByte(144) = 0 Then
    MsgBox "鍵盤燈沒有亮！"
Else
    MsgBox "鍵盤燈亮了！"
End If
End Sub