Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI
    X_Pos As Long
    Y_Pos As Long
End Type

Public gHold As POINTAPI
Public gintX As Integer
Public gintY As Integer

Public Sub Get_Cursor_Pos()

    GetCursorPos gHold

    gintX = gHold.X_Pos
    gintY = gHold.Y_Pos

End Sub

'вызов в процедуре (ругается на gintX и gintY "ByRef argument type mismatch"):
GetCursorPos gHold
Call Form_MouseUp(1, 0, gintX, gintY)