GetKeyState
GetKeyboardState
SetKeyboardState
La primera te devuelve el estado de Capslock a nivel de tecla
La segunda a nivel de Keyboard
LA tercera cambia el estado del Keyboard

Declaraciones:

Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As
Integer
Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) As Long
Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As
Long
Const VK_CAPITAL = &H14
Const VK_NUMLOCK = &H90


He aqui un ejemplo(Appleman mediante)

    Dim numlock%, scrolllock%, capslock%

' Array del KeyBoard
    Dim keyarray(256) As Byte

    capslock% = GetKeyState%(VK_CAPITAL)
    numlock% = GetKeyState%(VK_NUMLOCK)

    'Devuelve el estado del Keyboard
    dl& = GetKeyboardState(keyarray(0))

    'Cambia el estado a Presionado en el array
    keyarray(VK_CAPITAL) = 1

    'Cambia el estado de la tecla
    Call SetKeyboardState(keyarray(0))

A las ordenes:
    Leo Kushnir
    lkushnir@inter.net.il