Visual Basic - Tecla Bloq Mayus activada...

hola gente,
como puedo hacer para alertar con un mensaje si la tecla de Bloq Mayus está activada ????...
el mensaje que quisiera mostrar que sea como el de messenger (asi en forma de globo) que no sea tipo msgbox me entienden?

gracias foreros

'Necesitas dos textbox, un timer y un label, sin olvidar el formularo (:P)

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

Private Sub Form_Load()
Move (Screen.Width - Width) / 2, (Screen.Height - Height) / 2 'esto centrara el formulario
Text2.PasswordChar = "*" 'esto hara que aparescan puros asteriscos
' para cubrir tu contraseña
End Sub

Private Sub Text2_gotfocus()
Timer1.Interval = 1 'esto activa el timer cuando el text2 tiene el enfoque
End Sub

Private Sub Text2_lostfocus()
Timer1.Interval = 0 'esto desactiva el timer cuando pierde el enfoque
Label1.Visible = True 'checa esta parte, aunque pierda el enfoque el text2, aun
'aparece el mensaje de advertencia del Bloq mayus activad
End Sub

Private Sub Timer1_Timer()
If GetKeyState(VK_CAPITAL) = 1 Then
Label1.Visible = False 'si esta activado el Bloq mayus,hara que el label se haga
'invisible permitiendo mostrar el mensaje de advertencia
Else
Label1.Visible = True 'si no, se hara visible y lo tapara
End If
End Sub

'Cualquier duda o pregunta en la que te pueda ayudar con este
'programa enviamela a mi correo ;)

Mi correo es [email protected], al parecer no aparecio mi correo en la ayuda sobre el "Bloq Mayus activado en visual basic"