Mouse Wheel Scroll

  • I used code that was supplied by Cory from this thread mouse-wheel-scroll-userform. I adapted it for 64 bit use. It partially works. It will scroll up but not down and it scrolls up for both up and down wheel movement. Here is the code.

    1. Sub UnhookFormScroll()
    2. If mbHook Then
    3. UnhookWindowsHookEx mLngMouseHook
    4. mLngMouseHook = 0
    5. mFormHwnd = 0
    6. mbHook = False
    7. End If
    8. End Sub

    Anyone see what is wrong?