Detectar led mayúsculas de teclado

[pirbul]

Hola a tod@s, mi duda básicamente es que en una ventana de loggin hecha en VB6 quisiera hacer que mostrara un mensaje indicando que las mayúsculas están activadas (para lo de la contraseña).
Solo he conseguido que me detecte cuando presiono la tecla bloq mayus (keyCode = 20 ó vbKeyCapital) y me muestra el mensaje de que las mayúsculas están activas cuando activo las mayúsculas pero también cuando las desactivo.
He llegado a la conclusión de que el programa tendría que comprobar si el led del teclado que indica que las mayúsculas está o no activado para visualizar el mensaje, pero no se como se hace eso en VB6.
No se si habrá una solución más fácil y me estoy rayando un poco...
A ver si alguien me puede echar una mano.
Gracias!
Un saludo.

[pirbul]

Ya he encontrado como hacerlo.
Por si alguien tiene la misma duda pongo lo que he hecho.
En un módulo:

Public Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long

Global Const VK_CAPITAL = &H14

Global keys(0 To 255) As Byte

En en método KeyUp del Form donde está el campo contraseña:

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)

GetKeyboardState keys(0)

If Not keys(VK_CAPITAL) = False Then

'lo que quieras que haga

End If

End Sub

Un saludo!

[cadane_16]

Bueno mira eso te lo fuera podido evitar de la siguiente manera, en la propiedades del textbox donde se introduce el password, busca la opción llamada “UserSystemPasswordChar” y la pones en True y ya esto activa todas la opciones de campos para contraseña donde entra eso de la detección de las mayúsculas además de otra serie de beneficio q aumentan la seguridad de un compa de contraseñas.

Pero igual tu post me sirvió para algo que quería hacer igualmente gracias.