'**************************************
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_CAPITAL = &H14
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Command1_Click()
keybd_event VK_NUMLOCK, 0, 0, 0
keybd_event VK_NUMLOCK, 0, 2, 0
End Sub

Private Sub Command2_Click()
keybd_event VK_SCROLL, 0, 0, 0
keybd_event VK_SCROLL, 0, 2, 0
End Sub

Private Sub Command3_Click()
keybd_event VK_CAPITAL, 0, 1, 0
keybd_event VK_CAPITAL, 0, 2, 0
End Sub
__________________