Ejemplos usando el Api de windows para Visual basic

245 - SwapMouseButton

Invertir los botones del mouse con la función SwapMouseButton

Para el ejemplo colocar un control ChekBox para poder invertir los botones del mouse.

Código fuente en el formulario

Option Explicit ' Api SwapMouseButton Private Declare Function SwapMouseButton Lib "user32" ( _ ByVal bSwap As Long) As Long Private Sub Check1_Click() If Check1 Then SwapMouseButton 1 Else SwapMouseButton 0 End If End Sub Private Sub Form_Load() Check1.Caption = "intercambiar botones" MsgBox "Presionar el Check1 para establecer el botón derecho " & _ "del mouse para las funciones principales", vbInformation End Sub Private Sub Form_Unload(Cancel As Integer) ' reestablece los botones SwapMouseButton 0 End Sub

Buscar en Recursos vb