NumLock (numerische Tastatur) ein- und ausschalten

keybd_event, VK_NUMLOCK


Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Public Const VK_NUMLOCK = &H90

Sub Num_Lock_On()
keybd_event VK_NUMLOCK, 1, 0, 0
End Sub

Sub Num_Lock_Off()
keybd_event VK_NUMLOCK, 0, 0, 0
End Sub