Использование GetMouseMovePointsEx и других функций Windows API в Excel VBA

Question

Я еще не научился правильно преобразовывать функции Windows API для использования в Excel VBA. Если я не могу найти его в Интернете, и это не так просто, как SwapMouseButton или SetDoubleClickTime Я просто застреваю, заставляя его работать.

Могу ли я получить некоторую помощь по исправлению моего вызова функции GetMouseMovePointsEx и, возможно, советы, чтобы лучше понять, как это сделать для другой сложной функции?

Вот что у меня есть в модуле:

Private Declare Function SwapMouseButton Lib "user32" (ByVal fSwap As Boolean) As Boolean
Private Declare Function SetDoubleClickTime Lib "user32" (ByVal uInterval As Integer) As Boolean
Private Type MOUSEMOVEPOINT
  x As Integer
  y As Integer
  time As Long
  dwExtraInfo As Long
End Type
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function GetActiveWindow Lib "user32" () As Long
'Private Declare Function WindowProc Lib "user32" (ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const WM_MOUSEDOWN = &H200
Private Declare Function GetMouseMovePointsEx Lib "user32" (ByVal cbSize As Integer, ByRef lppt As MOUSEMOVEPOINT, ByRef lpptBuf() As MOUSEMOVEPOINT, ByVal nBufPoints As Integer, ByVal resolution As Long) As Integer
Private Sub Test1()
  SwapMouseButton False 'True|False
End Sub
Private Sub Test2()
  SetDoubleClickTime 0 '0=default(500), 48~=fastest I could get, >5000=5000
End Sub
Private Sub Test3()
  Dim hwnd As Long, mmp As MOUSEMOVEPOINT, mmpBuf(64) As MOUSEMOVEPOINT, returnedValue As Integer
  Sleep 1000
  hwnd = GetActiveWindow()
  'WindowProc hwnd, WS_MOUSEMOVE, WS_MOUSEMOVE, WS_MOUSEMOVE
  mmp.x = 600
  mmp.y = 300
  mmp.time = 200
  returnedValue = GetMouseMovePointsEx(Len(mmp), mmp, mmpBuf, 1000, 1)
  If returnedValue = -1 Then
    Debug.Print "Error"
  Else
    Debug.Print mmpBuf(0).x
    Debug.Print mmpBuf(0).y
  End If
End Sub