Две траблы в простом коде обычного модуля 2003:

Option Compare Database
Option Explicit

Private Type POINTAPI
   xxx As Integer
   yyy As Integer
End Type

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
'
Sub sb_MoveMouse()
Dim uXY As POINTAPI
    Debug.Print GetCursorPos(uXY)
    Debug.Print uXY.xxx; uXY.yyy
End Sub

'---------------------------
'Microsoft Visual Basic
'---------------------------
'Run-time error '49':
'
'Bad DLL calling convention
'---------------------------
'OK Help
'---------------------------

1. Постоянно дает координату Y = 0. X опеределяет правильно.
2. Выходит из процедуры с ошибкой 49. Декомпайл не помогает...

Чо ей надо?

http://www.sql.ru/forum/1097640/dvazhdy-ne-rabotaet-getcursorpos