Keyboardevent for Scroll Lock

Hey ppl.

I realy need help for this one, i don´t know the flag for the Scroll Lock key, and i need help too on the Keyboardevent sintax too. If you have the code using the keyboardevent for scroll lock key please wright it here.

Thank you,numibesi

You would have to use for instance a timer to check for the keystate, using getasynckeystate api:

Code:

---

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Const VK_SCROLL = &H91

Private Sub Timer1_Timer()
    If GetAsyncKeyState(VK_SCROLL) Then MsgBox "Scroll Lock pressed"
End Sub

---