Posted on January 5, 2009
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| 'System & API - How to Swap Mouse Buttons
Option Explicit
'Add two CommandButtons to your form. The first one is to swap the mouse buttons.
'The second one is to swap back.
'(remember to click with the right button, because the buttons had been swapped).
Declare Function SwapMouseButton& Lib "user32" (ByVal bSwap As Long)
Private Sub Command1_Click()
Call SwapMouseButton&(1)
End Sub
Private Sub Command2_Click()
Call SwapMouseButton&(0)
End Sub |