Código:
'Em um Módulo BAS no Declarations:
Declare Function SwapMouseButton Lib "user32" Alias "SwapMouseButton" (ByVal bSwap As Long) As Long
'Para inverter os botões do mouse:
SwapMouseButton(1)
'Para voltar ao normal:
SwapMouseButton(0)
pMouseButton(0)