Código de Visual Basic para Aplicaciones - controlar tecla Numlock

'con este código muestro como saber si esta activa la tecla NUMLOCK  no es de mi autoria copie el

'código y simple mente lo modifique y  adapte a la necesidad que tuve lo publico pues a otras

'personas puede servir

'primero la librería en un modulo

Option Compare Database

Option Explicit

Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long

-------------------------------------------------------------------------------------------------------------------------------------

Public Sub Boton_NUMLOCK_Click()

   If GetKeyState(144) = 0 Then SendKeys "{NUMLOCK}"   'Aquí verificamos si la tecla num lock está apagado que sería el valor de (0) entonces lo activaremos con el SendKeys "{NUMLOCK}" 

End Sub

'ya con este ejemplo podemos adaptar mas eventos de teclas a nuestras necesidades