Visual Basic - Mayúsculas

Hola

¿Alguien sabe cómo puedo saber si tengo las Mayúsculas activadas (sin mirar la lucecita)...?

Gracias

En www.ambsoftware.com encontre lo siguiente:

Activar o desactivar las teclas de bloqueo mayúsculas y bloqueo numérico

Mediante el ejemplo siguiente veremos cómo activar y desactivar las teclas de Bloqueo mayúsculas y Bloqueo numérico.

Declare Sub GetKeyboardState Lib "user32" (lpKeyState As Any)
Declare Sub SetKeyboardState Lib "user32" (lpKeyState As Any)
Public Const VK_CAPITAL = &H14
Public Const VK_NUMLOCK = &H90

Añada un botón a un formulario y llámelo Command1:

Private Sub Command1_Click()
ReDim KeyboardBuffer(256) As Byte
GetKeyboardState KeyboardBuffer(0)
'Este ejemplo muestra como pulsar el Caps Lock. Si quiere que presione el Num Lock, sustituya los VK_CAPITAL por VK_NUMLOCK
If KeyboardBuffer(VK_CAPITAL) And 1 Then
KeyboardBuffer(VK_CAPITAL) = 0
Else
KeyboardBuffer(VK_CAPITAL) = 1
End If
SetKeyboardState KeyboardBuffer(0)
End Sub

Saludos desde Lima