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

Question

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

Answer 1

Const VK_CAPITAL = &H14
Dim kbByte(0 To 255) As Byte
Private Declare Function GetKeyboardState Lib "user32" (kbArray As Byte) As LongPrivate Sub Command1_Click()
    GetKeyboardState kbByte(0)
    Debug.Print kbByte(VK_CAPITAL)
End Sub

Answer 2

象XP登录框一样，点击密码框，如果大小写键打开就会浮动出提示大小写键打开的那个浮动的提示怎么做出来的？我用text做出来的没那个效果啊。