Intercambiar los botones del ratón y saber cómo están

Código Visual Basic

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 diestrosEnd if