检测大小键是否被打开和浮动提示窗口 达人来 送分


1 怎么检测大小键是否被打开？
2 象XP登录框一样，点击密码框，浮动出的那个提示窗口怎么做？

[解决办法]
Const VK_CAPITAL = &H14
Dim kbByte(0 To 255) As Byte
Private Declare Function GetKeyboardState Lib "user32 " (kbArray As Byte) As Long

Private Sub Command1_Click()
GetKeyboardState kbByte(0)
Debug.Print kbByte(VK_CAPITAL)
End Sub