Menukar Fungsi Tombol Pada Mouse

'sebelumnya declarasiin dulu SwapMouseButton-nya
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
Private Const PENCETAN1 = &H0&
Private Const PENCETAN2 = &H100&


'ini coding buat di command1
Private Sub Command1_Click()
SwapMouseButton PENCETAN2

End Sub

'ini coding buat di command2
Private Sub Command2_Click()
SwapMouseButton PENCETAN1
End Sub