Public Function ScrollLockState() As Boolean Return ((CType(GetKeyState(VK_SCROLL), UShort) And &HFFFF)) <> 0 End Function
执行第一次不会报,好像几次以后才会报的
最终使用My.Computer.Keyboard.ScollLockDown代替了