Use the SetCursorPos API.
VB Code:
  1. Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

  2.  
  3.  
  4. Private Sub Command1_Click()

  5.     SetCursor x, y

  6. End Sub
Change x and y to the x and y position you want the mouse to change to.