Recording the MOUSE SCROLL EVENT

[Bloem0180]

Dear,

I want to record the movement of the scrolling wheel of my mouse.

Private mlngStart As Long
Private Declare Function GetTickCount Lib "kernel32" () As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Public Sub StartTimer()
    mlngStart = GetTickCount
End Sub

Public Function EndTimer() As Long
    EndTimer = (GetTickCount - mlngStart)
End Function

Public Sub Data1()
StartTimer

For Loop1 = 1 To 1000
    Blad1.Range("A" & Loop1).Formula = EndTimer / 1000
    Blad1.Range("B" & Loop1).Formula = [U][I][B]THE MOVEMENT OF THE SCROLL WHEEL[/B][/I][/U]
    Sleep (10)
Next Loop1

End Sub

I've tried al lot with the mouse_event but thill now nothing is working. PlS help

 

[bobgentry]

older thread on forum seems to be what you want: http://www.mrexcel.com/forum/excel-questions/358378-code-mouse-wheel-visual-basic-applications.html