VB - Swap Mouse Buttons

Add two command buttons (Command1 , Command2) and add the following code :

VB Code:

Private Declare Function SwapMouseButton& Lib "user32" (ByVal bSwap As Long)
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
 
Private Sub Command1_Click()
 'swap Left and Right mouse buttons
 SwapMouseButton (True)
End Sub
 
Private Sub Command2_Click()
 'set mouse buttons back to normal
 SwapMouseButton (False)
End Sub
 
Private Sub Form_Load()
 Command1.Caption = "swap"
 Command2.Caption = "unswap"
End Sub