Hola forer@
Para intercambiar los botones del mouse lo puedes hacer declarando esta funcion API :

Private Declare Function SystemParametersInfo Lib "user32" Alias _
"SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, _
ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Const SPI_SETMOUSEBUTTONSWAP = 33

luego la llamas asi:

SystemParametersInfo SPI_SETMOUSEBUTTONSWAP, True, ByVal 0&, 0

y para restaurar los botones llamas a:

SystemParametersInfo SPI_SETMOUSEBUTTONSWAP, False, ByVal 0&, 0