Make your own free website on

Set Mouse Cursor Position

'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)
'Add 1 CommandButton (named Command1) to your form.
'Insert this code to the module :

Declare Function SetCursorPos& Lib "user32" (ByVal X As Long, ByVal Y As Long)

'Insert the following code to your form:

Private Sub Command1_Click()
'Replace the two numbers below (500,600) with the X and Y position of the mouse cursor
SetCursorPos 500, 600
End Sub

Go Back