INVERSER LES BOUTONS DE LA SOURIS

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

' Sur une feuille, vous placez trois boutons
' Command1, Command2, Command3.
' Les boutons Command2 et Command3 vous permettront
' d'inverser ou de restaurer les boutons de votre souris.
' Le bouton Command1 vous permettra de tester le
' fonctionnement des boutons Command2 et Command3.
Private Sub Command1_Click()
MsgBox (" Youpi")

End Sub

Private Sub Command2_Click()
Call SwapMouseButton(1)
MsgBox "Boutons inversés"

End Sub

Private Sub Command3_Click()
Call SwapMouseButton(0)
MsgBox "Boutons restaurés"

End Sub

Private Sub Command4_Click()
Unload Me

End Sub