Visual Basic - coordenadas

¿Cómo puedo capturar (o determinar) las coordenadas de posición del mouse en el form? La idea es utilizarlas luego, para posicionar un objeto.
Gracias a todos
Juan Carlos

\'Este módulo fue creado por PcBike
Option Explicit

Public Type POINTAPI
X As Long
Y As Long
End Type

Private Declare Function GetCursorPos Lib \"user32.dll\" (lpPoint As POINTAPI) As Long
Private Declare Function SetCursorPos Lib \"user32.dll\" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function ShowCursor Lib \"user32\" (ByVal bShow As Long) As Long

Private Posicion As POINTAPI

\'Esta rutina establece la ubicación del puntero del ratón
Public Sub SetMouse(X As Long, Y As Long)
SetCursorPos X, Y
End Sub

\'Esta función devuelve la posición X del mouse
Public Function MouseX()
GetCursorPos Posicion
MouseX = Posicion.X
End Function

\'Esta función devuelve la posición Y del mouse
Public Function MouseY()
GetCursorPos Posicion
MouseY = Posicion.Y
End Function

\'Esta rutina oculta el mouse a menos que se ingrese Ocultar como False
Public Sub OcultarMouse(Optional Mostrar As Boolean)

ShowCursor Mostrar

End Sub

Gracias Valter!
Voy a experimentar....a ver si puedo lograr algo
Nuevamente agradecido por tu molestia
Cordialmente
Juan Carlos

Ola!!!
Vamos a ver,no e mirado mu bien el codigo de Valter, pero tiene pinta de ser un pelin atravesado para lo que creo q quieres. Si solo y repito SOLO quieres saber las coordenadas donde pincha o donde esta el mouse, los eventos MouseDown (pinchar) y MouseMove (mover) del formulario te devuelven dos valores, X e Y. No se si con eso tienes, pero weno...era pa colaborar algo nos vemos

Hola Angel
Gracias por tu molestia
Lo que realmento quiero es:
1° posicionarme sobre un objeto (una recta)
2°con un clik moverla hacia donde se desplace el ratón
Se me ocurre utilizar las coordenadas de posición del raton para el "move" del objeto (las cordenads x e y de un extremo de la recta.)
¿Es descabellado?
En fin, si quieres confirmarme te lo agradecería
Cordialmente
Juan Carlos