如何在vb6.0中判断 CapsLock 和 shift 的状态？

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Const VK_CAPITAL As Long = &H14
Private Const VK_NUMLOCK As Long = &H90
Private Const VK_SHIFT = &H10

Private Sub Form_Click()
If GetKeyState(VK_CAPITAL) Mod &HFF80 = 1 Then
MsgBox "当前处于大写锁定状态"
Else
MsgBox "当前处于正常输入状态"
End If
If GetKeyState(VK_SHIFT) And CLng(&HFF80) Then
MsgBox "SHIFT键被按下"
End If
End Sub