Private Declare Function SwapMouseButton& Lib "user32" (ByVal bSwap As Long)

'Для программной замены вам достаточно использовать вышеприведенную функцию как:
SwapMouseButton& 1 'событие: кнопки поменялись местами
SwapMouseButton& 0 'событие: все вернулось в исходное состояние