Disabling mouse scrolling issue

[Mr.Kane]

I am attempting to use Microsoft's KB instrucitons to disable mouse
scrolling in a form.

after adding the following code to the module of the form:

Option Compare Database
Option Explicit

Private WithEvents clsMouseWheel As MouseWheel.CMouseWheel

Private Sub Form_Load()
Set clsMouseWheel = New MouseWheel.CMouseWheel
Set clsMouseWheel.Form = Me
clsMouseWheel.SubClassHookForm
End Sub

Private Sub Form_Close()
clsMouseWheel.SubClassUnHookForm
Set clsMouseWheel.Form = Nothing
Set clsMouseWheel = Nothing
End Sub

Private Sub clsMouseWheel_MouseWheel(Cancel As Integer)
MsgBox "You cannot use the mouse wheel to scroll records."
Cancel = True
End Sub



I received the following error: Compile Error: Invalid Attribute or Sub
Function
with the following code highlighted: WithEvents clsMouseWheel As
MouseWheel.CMouseWheel

Any help would be appreciated.
I know that many have solved this issue but I've been working on this
for several hours and just need the obvious solution

Thank you
Marc Kane

 

[Guest]

I take it you have done both the ActiveX and module parts listed in the same
KB?

TonyT..

 

[Mr.Kane]

Correct, I have followed the instructions explicitly

 

[Guest]

Try looking here;

http://www.lebans.com/mousewheelonoff.htm

uses modded code from same for mousehook.dll which I use and I know works on
2003 too.

TonyT..