modScroll.bas
Option Explicit

Public Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Public Const GWL_WNDPROC = -4

Public gDataList As MSDataGridLib.DataGrid

Public lpPrevWndProc As Long

Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    On Error Resume Next
    If uMsg = 522 Then
        If wParam > 0 Then
            gDataList.Scroll 0, -1
        Else
            gDataList.Scroll 0, 1
        End If
        Debug.Print wParam, lParam
    End If
    WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function

Form

Private Sub Form_Load()
    Set gDataList = Me.dgList
    lpPrevWndProc = SetWindowLong(dgList.hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SetWindowLong dgList.hwnd, GWL_WNDPROC, lpPrevWndProc
End Sub

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
'
Public pObj As Long
'
Function WindowProc(ByVal hw As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim X As Integer
Dim dlist As Object
    On Error Resume Next
    If uMsg = 522 Then
        CopyMemory dlist, pObj, Len(pObj)
        If wParam > 0 Then
            dlist.Scroll 0, -1
        Else
            dlist.Scroll 0, 1
        End If
        Set dlist = Nothing
    End If
    WindowProc = CallWindowProc(lpPrevWndProc, hw, uMsg, wParam, lParam)
End Function

Private Sub Form_Load()
    pObj = ObjPtr(dgList)
    lpPrevWndProc = SetWindowLong(dgList.hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub