vc编程中如何识别大写键状态

bool bCapsLockState = (GetKeyState(VK_CAPITAL) > 0) ? true : false;

  Dim var_CapsLock
  var_CapsLock = Plugin.CapsLockCheck.GetCapsLockStatus
  If var_CapsLock = 1 Then 
  KeyPress 20, 1
  End If