Scroll Lock light

[Stef]

Hello,
I am writing a program which does something once the scroll lock key is pressed. It then turns off the scroll lock light using the following code:

Private Sub ScrollLockOff()
    Dim abytBuffer(0 To 255) As Byte
    GetKeyboardState abytBuffer(0)
    abytBuffer(VK_SCROLL) = CByte(False)
    SetKeyboardState abytBuffer(0)
End Sub

The problem is this does not seem to turn scroll lock off, it only turns off the light. If I press and hold another key (shift for example) and scroll lock is supposed to be on (but turned off by this code) the scroll lock light starts flashing.
Is there anything else I need to do to turn scroll lock off completely?