VB Code - Menukarkan Tombol Mouse

Di bawah ini merupakan procedure VB6 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