the scroll lock function can be triggered in the On-Screen Keyboard. This
application is normally found in Start - Programs - Accessories -
Accessibility
Clicking on the 'scroll lock' in the On-Screen Keyboard should have the same
function as pressing a physical scroll lock key.

This is much easier.


"Chip Pearson" wrote:

Margarita,

You can use code like the following. Below are procedures for turning Scroll
Lock on, off, and toggling between on and off. It applies only to the
calling thread. It is not a system global method.

Public Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte)
As Long
Public Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte)
As Long

Sub SetScrollLock()
Dim K(0 To 255) As Byte
GetKeyboardState K(0)
K(145) = 1
SetKeyboardState K(0)
End Sub

Sub ClearScrollLock()
Dim K(0 To 255) As Byte
GetKeyboardState K(0)
K(145) = 0
SetKeyboardState K(0)
End Sub

Sub ToggleScrollLock()
Dim K(0 To 255) As Byte
GetKeyboardState K(0)
If K(145) < 0 Then
K(145) = 0
Else
K(145) = 1
End If
SetKeyboardState K(0)
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"Margarita" wrote in message
...
How to turn SCROLL LOCK OFF, when Scroll Lock KEY not on keyboard?