수다닷컴

마우스 클릭 질문을 여러번 하고있는데 맞는 답이 잘 안나오네요..ㅠ

폼
Dim t As Long
Private Declare Sub Sleep Lib kernel32 (ByVal dwMilliseconds As Long)
------------------------
Private Sub Command1_Click()
t = SetCursorPos&(50,50)
Sleep (1000)
t = SetCursorPos&(100,100)
Sleep (1000)
end sub
--------------------------
모듈
Declare Function SetCursorPos Lib user32 _
(ByVal x As Long, ByVal y As Long) As Long

이런 소스가 있는데요... 두번째 슬립1000 다음에 마우스 클릭하려면 어떻게 해야할까요?
그리고 마우스 클릭하고 있는건 또 어떻게 하나요?

신청하기