Usando la función SwapMouseButton podemos intercambiar los botones derecho e izquierdo del ratón (modo para zurdos).

Declaramos en un módulo :

Declare Function SwapMouseButton Lib "user32"(ByVal bSwap as long) as long

Para intercambiarlos :

dim res as long
res = SwapMouseButton(true)

Para dejarlos "normales" :

dim res as long
res = SwapMouseButton(false)


Si queremos saber cómo están dichos botones (para diestros o para zurdos) podremos hacer :

Declaramos en un módulo :
Public Const SM_SWAPBUTTON = 23
Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

Y para saber cómo están :

If GetSystemMetrics(SM_SWAPBUTTON) Then
   'están intercambiados, para zurdos
else
   'están para "normales", para diestros
End if