GetScrollLockKey – Get the state of the Scroll Lock key
Private Declare Function GetKeyState Lib “user32” (ByVal nVirtKey As Long) As _ Long’ Get the current state of the ScrollLock keyFunction GetScrollLockKey() As Boolean GetScrollLockKey = GetKeyState(vbKeyScrollLock)End Function