Boa noite!!

Isso deve ajudar
http://blogs.msdn.com/b/developingfordy ... entry.aspx

Att

Alexandre,

Show de bola! Serviu perfeitamente, mas eu foz algumas alterações no private sub.. vide abaixo:

obs: inseri um call Password_AfterGotFocus() no mousemove e no keypress do textbox

Private Sub Password_AfterGotFocus()
Dim CapsLockState As Boolean
Dim error_message As String
Dim keys(0 To 255) As Byte
GetKeyboardState keys(0)

CapsLockState = keys(VK_CAPITAL)
If CapsLockState = True Then

'Apresentar a label
Label8.Visible = True

error_message = "Caps Lock acionada!" + Chr(13) + Chr(13) + "You should press the Caps Lock key to turn it off before entering your password."
Label8.Caption = error_message

Else

Label8.Visible = False
End If

End Sub

Boa noite!

Eu fico feliz por ajudar!

Obrigado pelo retorno

Parabéns por conseguir adaptar á sua necessidade.

Att