WM_LBUTTONDOWN нажимает не туда

[Vic65]

Посылаю сообщение WM_LBUTTONDOWN окну Сапёра в точку с координатами (3, 4) (как мне кажется):

Private Declare Function FindWindow Lib "user32" _
  Alias "FindWindowA" ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long

Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" ( _
  ByVal hWnd As Long, _
  ByVal wMsg As Long, _
  ByVal wParam As Long, _
  lParam As Any) As Long
 
Private Const WM_COMMAND = &H111
Private Const BM_CLICK = &HF5
Private Const WM_MOUSEMOVE = &H200
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202
Private Const MK_LBUTTON = &H1

Public Sub ClikСапёр()
    Dim hWnd As Long
    Dim lParam As Long
'    shell "winmine.exe", vbNormalFocus
    hWnd = FindWindow(vbNullString, "Сапер")
Let lParam = MakeDWord(3, 4)
'    MsgBox hWnd & " " & HiWord(lParam) & " " & LoWord(lParam)
e = SendMessage(hWnd, WM_LBUTTONDOWN, 0, lParam)
End Sub
      Function MakeDWord(LoWord As Integer, HiWord As Integer) As Long
         MakeDWord = (HiWord * &H10000) Or (LoWord And &HFFFF&)
      End Function
   Function LoWord(DWord As Long) As Integer
      If DWord And &H8000& Then ' &H8000& = &H00008000
         LoWord = DWord Or &HFFFF0000
      Else
         LoWord = DWord And &HFFFF&
      End If
   End Function

   Function HiWord(DWord As Long) As Integer
      HiWord = (DWord And &HFFFF0000) \ &H10000
   End Function

Клик доходит до окна, но в точку с непонятными координатами.
MS Spy++ говорит, что это точка с xPos:-2676 yPos:19
Причём не имеет значение какие координаты указаны в строке:

lParam = MakeDWord(3, 4)

Клик всегда в волшебную точку -2676;19

Как попасть куда хочется?

Спасибо.

[Vic65]

Подсказали товарищи...
Неправильный тип параметра lParam в декларации функции SendMessage.
Было - lParam As Any.
Исправлено на - ByVal lParam As Long.
Так всё работает.
Подсказали здесь:
http://sql.ru/forum/actualthread.aspx?bid=22&tid=772091
Тему можно закрывать.