1. 폼에 CommandButton 을 하나 만듭니다. 만들때 약간 크게 만들기 바랍니다.
2. 버튼을 만든후에 다음과 같이 코딩하십시요.
' 좌표를 알아내는 API
Private Declare Function ClientToScreen Lib "user32" _
(ByVal hwnd As Long, _
lpPoint As POINTAPI) As Long
' 마우스위치를 변경시키는 API
Private Declare Function SetCursorPos Lib "user32" _
(ByVal x As Long, _
ByVal y As Long) As Long
Private Type POINTAPI
x As Long
y As Long
End Type
Private Sub Command1_Click()
Dim Cx As Long
Dim Cy As Long
Dim pt As POINTAPI
pt.x = 0
pt.y = 0
' Command1 의 위치를 알아낸다.
ClientToScreen Command1.hwnd, pt
MsgBox pt.x & "" : "" & pt.y
' ScaleX 는 비베에서 트윕값을 다른 형태의 값으로 바꿔주는 함수입니다.
' 여기서는 트윕값을 vbPixels 형태로 바꿉니다
Cx = pt.x + ScaleX(Command1.Width / 2, ScaleMode, vbPixels)
Cy = pt.y + ScaleY(Command1.Height / 2, ScaleMode, vbPixels)
' 마우스 위치를 변경시킨다.
SetCursorPos Cx, Cy
End Sub