Menukarkan Tombol Mouse

Di bawah ini merupakan procedure untuk menukarkan tombol mouse, dari kiri ke kanan dan sebaliknya. Bagaimana implementasinya dalam Visual Basic 6.0, simaklah kodenya di bawah ini:

Option Explicit 
 
Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long 
 
Public Sub SwapMouse(bSwap As Boolean) 
    SwapMouseButton bSwap 
End Sub 

Dua contoh penggunaan menukarkan tombol mouse

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    SwapMouse (Check1.Value=0)   
End Sub 
 
Private Sub Command1_Click() 
    SwapMouse True 
End Sub