Warum auch immer Sie diese Funktion benötigen,
    schließlich ist es ja sogar eine Systemoption, mit ein wenig Deklaration haben auch Sie
    die Funktionstasten der Maus ausgetauscht. 
     
    Allgemein/Deklarationen 
    'win32 
    Private Declare Function SwapMouseButton Lib "User32" (ByVal bSwap As Integer)
    As Integer 
     
    'win16 
    Private Declare Function SwapMouseButton Lib "User" (ByVal bSwap As Integer) As
    Integer 
     
    Um die Tasten zu vertauschen 
    SwapMouseButton (True) 
    um den Originalzustand wieder herzustellen 
    SwapMouseButton (False) |