caps lock 键的使用－－紧急！！！！！！！！！！

[xujunliang]

我想在VB程序中设置 CAPS LOCK键的状态
但使用 =CAPSLOCK(.T.) 时不能通过
请问我怎么办

[minajo21]

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function SetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer

Const VK_NUMLOCK = &H90

Private Declare Sub GetKeyboardStateByString Lib "user32" Alias "GetKeyboardState" (ByVal pbKeyState As String)
Private Declare Sub SetKeyboardStateByString Lib "user32" Alias "SetKeyboardState" (ByVal lppbKeyState As String)

[minajo21]

Const VK_CAPITAL = &H14