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
