Switching mouse buttons

[BuggyProgrammer]

my code already does waht you want. you dont do funny stuff to it:
private Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long

Private Sub cmdExecute_Click()
SwapMouseButton 1
SwapMouseButton 0
End Sub