You can do this using Windows api functions. If you're not familiar with
the Windows API then Google for explanation and for what the functions I've
used do. The code below will maintain the current Y co-ordinate of the
cursor but place it at the right edge of the screen. Modify for the effect
you want.
In Declarations section of your form's Module:
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y
As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long,
lpRect As RECT) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As
Long
In your form's Load Event:
Dim pt As POINTAPI
Dim rct As RECT
GetWindowRect GetDesktopWindow, rct 'get screen coordinates of
the Desktop
GetCursorPos pt 'get
current position of cursor
SetCursorPos rct.Right, pt.Y 'move cursor
to far right of screen & current y coordinate
HTH
Jon
