Autres toutes versions tester le scrool avec la roulette sans passer par un hooking en addressof

#If VBA7 Then
    Private Declare PtrSafe Function GetParent Lib "user32" (ByVal hWnd As LongPtr) As LongPtr
    Private Declare PtrSafe Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As LongPtr, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
    Private Declare PtrSafe Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As LongPtr)
    Private Declare PtrSafe Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As LongPtr, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
    Private Declare PtrSafe Function WaitMessage Lib "user32" () As Long
    Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
    Private Type Msg: hWnd As LongPtr: message As Long: wParam As LongPtr: lParam As LongPtr: time As Long: pt As POINTAPI: End Type
    #If Win64 Then
        Private Const NULL_PTR = 0
        Private Declare PtrSafe Function WindowFromPoint Lib "user32" (ByVal point As LongLong) As LongPtr
        Function PointApiToLong(point As POINTAPI) As LongLong
            Dim DbLL As LongLong, StructureLL As LongPtr
            StructureLL = LenB(DbLL) + 2&
            If LenB(point) = StructureLL Then CopyMemory VarPtr(DbLL), VarPtr(point), StructureLL
            PointApiToLong = DbLL
            CopyMemory VarPtr(DbLL), 0, StructureLL
        End Function
    #Else
        Private Const NULL_PTR = 0&
        Private Declare PtrSafe Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As LongPtr
    #End If
    Private Function HiWord(Param As LongPtr) As Integer
        Call CopyMemory(HiWord, ByVal VarPtr(Param) + 2&, 2&)
    End Function  
#Else

Function PointToLongLong(point As POINTAPI) As LongLong
    Dim ll As LongLong, cbLongLong As LongPtr
    cbLongLong = LenB(ll)  
    If LenB(point) = cbLongLong Then CopyMemory ll, point, cbLongLong
    PointToLongLong = ll
End Function

Function PointApiToLong(point As POINTAPI) As LongLong
            Dim DbLL As LongLong, StructureLL As LongPtr
            StructureLL = LenB(DbLL)
            If LenB(point) = StructureLL Then CopyMemory DbLL , point, StructureLL
            PointApiToLong = DbLL
            CopyMemory DbLL, 0, StructureLL
End Function

        Private Type t8
           L As LongLong
        End Type
      
        Private Function PointApiToLong(point As POINTAPI) As LongLong
          Dim t As t8
          LSet t = point
          PointApiToLong = t.L
        End Function