마우스의 오른쪽, 왼쪽을 서로 바꾸는 코드이다.(10초동안만 바꾼다.)
SwapMouseButton True 이 부분은 SwapMouseButton 1
SwapMouseButton False 이 부분은 SwapMouseButton 0
으로 바꿔도된다.

참고로 아래 코드는 API-Guide의 SwapMouseButton API 함수 예제에  있는 코드이다.




Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long

Private Sub Command1_Click()
    SwapMouseButton True

    t = Timer
    Do: DoEvents: Loop Until Timer > t + 10

    SwapMouseButton False
End Sub





Source Page : http://www.mentalis.org/tips/tip7.shtml
이 게시물을...