Tx Kedaman, but i need to press the Scroll lock key

Tank you, but what i realy need is to use the keyboardevent to press the scroll lock key permantly, bacause i´m using the MSAgent (Voice_Command) and i need the scroll lock key pressed so the agent listen to my commands.Thank you.

[kedaman]

Then how about this?

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_SCROLL = &H91
Const KEYEVENTF_KEYUP = &H2

Private Sub Command1_Click()
    keybd_event VK_SCROLL, 0, 0, 0
    keybd_event VK_SCROLL, 0, KEYEVENTF_KEYUP, 0
End Sub

Thank kedaman, hope i spelled correctely

numibesi