Pegar posição do mouse

Gostaria de saber se é possivel pega a posição ( x,y ) do mouse?

Desde ja agradeço a atenção.
Leandro Santos.

utilizando a DLL do windows xp, seria algo do tipo:

Código:

def var pos_xy As memptr.

set-size (pos_xy) = 8.

procedure GetCursorPos External "USER32.DLL":
    define output parameter pos_xy as memptr.
end.

run GetCursorPos (output pos_xy).

MESSAGE "X" Get-long (pos_xy,1) 
               "Y" Get-long (pos_xy,5)
    VIEW-AS ALERT-BOX INFO BUTTONS OK.

Perfeito, era isso mesmo que eu precisava.

Obrigado!