참고로 원문 소스가 잘못 되어 있어서 데브피아에서 글 보고 조금 수정했다.


'-------------------------------------------------------------------------------------------
// 마우스를 화면 최상된 왼쪽 끝으로 이동
'-------------------------------------------------------------------------------------------
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
Dim pt As POINTAPI

Private Sub Command1_Click()
    SetCursorPos 0, 0
End Sub


'-------------------------------------------------------------------------------------------
// 마우스의 현재좌표구해서 오른쪽으로 10만큼 이동하도록
'-------------------------------------------------------------------------------------------
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 GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim pt As POINTAPI

Private Sub Command1_Click()
    GetCursorPos pt
    SetCursorPos pt.x + 10, pt.y
End Sub





Source Page : http://www.mentalis.org/tips/tip019.shtml