Private Declare PtrSafe Function UnhookWindowsHookEx Lib 'user32' (ByVal hHook As LongPtr) As LongPtr Private Declare PtrSafe Function CallNextHookEx Lib 'user32' (ByVal hHook As LongPtr, ByVal nCode As Long, ByVal wParam As LongPtr, lParam As Any) As LongPtr Private Declare PtrSafe Function SetWindowsHookEx Lib 'user32' Alias 'SetWindowsHookExA' (ByVal idHook As Long, ByVal lpfn As LongPtr, ByVal hmod As LongPtr, ByVal dwThreadId As Long) As LongPtr Private Const WHEEL_UP As LongPtr = 4287102976# Private Const WHEEL_DOWN As LongPtr = 7864320 The problem lies in Excel, The Visual Basic editor must be closed !!! Excel->error !!! Private Declare PtrSafe Function GetCursorPos Lib 'user32.dll' ( _ Private Declare PtrSafe Function WindowFromPoint Lib 'user32' ( _ Private Declare PtrSafe Function PostMessage Lib 'user32.dll' _ Private Declare PtrSafe Function UnhookWindowsHookEx Lib 'user32' ( _ Private Declare PtrSafe Function CallNextHookEx Lib 'user32' ( _ Private Declare PtrSafe Function SetWindowsHookEx Lib 'user32' _

Private Declare PtrSafe Function GetWindowLong Lib 'user32.dll' _ Private Declare PtrSafe Function FindWindow Lib 'user32' _

MLngMouseHook, nCode, wParam, ByVal lParam) MForm.ScrollTop = Application.Min(mForm.ScrollHeight - mForm.InsideHeight, mForm.ScrollTop + cSCROLLCHANGE) MForm.ScrollTop = Application.Max(0, mForm.ScrollTop - cSCROLLCHANGE) WH_MOUSE_LL, AddressOf MouseProc, lngAppInst, 0)īyVal nCode As Long, ByVal wParam As Long, _ LngAppInst = GetWindowLong(mFormHwnd, GWL_HINSTANCE) HwndUnderCursor = FindWindow('ThunderDFrame', oForm.Caption)ĭebug.Print 'Form window: ' & hwndUnderCursor Private Const WM_LBUTTONDOWN As Long = &H201 Private Const GWL_HINSTANCE As Long = (-6) Private Const WM_MOUSEWHEEL As Long = &H20A Private Declare Function GetCursorPos Lib 'user32.dll' ( _ Private Declare Function WindowFromPoint Lib 'user32' ( _ Private Declare Function PostMessage Lib 'user32.dll' _ Private Declare Function UnhookWindowsHookEx Lib 'user32' ( _ Private Declare Function CallNextHookEx Lib 'user32' ( _ Private Declare Function SetWindowsHookEx Lib 'user32' _ Private Declare Function GetWindowLong Lib 'user32.dll' _ Private Declare Function FindWindow Lib 'user32' _ ' Based on code from Peter Thornton here:

Private Sub UserForm_Quer圜lose(Cancel As Integer, CloseMode As Integer)Ģ-Add one of the following to a Module depending on your office architecture I post the code here so the 64 bit answer is available.ġ- Add this code behind your UserForm: Private Sub UserForm_Initialize()

Userforms don't support natively mousewheel scroll (AFAIK)

Userform excel 2010