CodeItBetter Programming Another VB Programming Blog

'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