'**********************************
'** Function Declarations:
Con el uso de funciones API es simple pero ten en cuenta que hay que
liberar al raton,
#if WIN32 Then
Private Declare Function SetCursorPos& Lib "user32" (ByVal x As Long, ByVal
y As Long)
Private Declare Function ClipCursor& Lib "user32" (lpRect As RECT)
#else
Private Declare Sub SetCursorPos Lib "user" (ByVal X As Integer, ByVal Y As
Integer)
Private Declare Sub ClipCursor Lib "user" (lpRect As Any)
#endif 'WIN32

La primera te cloloca en la posicion deseada, la segunda te limita la
salida del area rectangular deseada


Leonardo Kushnir

kushnir@shani.net