Trocando o botão do mouse via código. 

Quer trocar  o botão do mouse via código ?

Use a API - Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long)

Esta API realiza a troca do botão do mouse . O parâmetro bSwap define se o botão do mouse será trocado ou restaurado.

Se o parâmetro for TRUE o botão esquerdo gera as mensagens do botão direito e o botão direito gera as mensagens do esquerdo. Se o parâmetro bSwap for FALSE os botões são restaurados ao estado original.

1- Crie um novo projeto no VB e no formulário padrão insira um botão de um frame e dois botões de opção.

2- Declare a função API :Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long)

na seção General Declarations do formulário.

3- Inclua o código abaixo para poder trocar e restaurar os botões do seu mouse:

Private Sub Option1_Click()
   bSwap = True
End Sub
 

Private Sub Option2_Click()
  bSwap = False
End Sub
 

Agora é só rodar e trocar os botões. Até mais...