• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Swapping Controls for left-right mouse buttons.

Swapping Controls for left-right mouse buttons.

Swapping Controls for left-right mouse buttons.

Rate Swapping Controls for left-right mouse buttons.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Then all you need is : A command button and a text-box, indicating current settings (left or right handed).



         ******************* 
           CODE BEGINS :
         *******************

Dim a As Integer
--------------------------------------------------------------
Private Sub Command1_Click()
If Text1.Text = "Right" Then
temp = SwapMouseButton(2)
a = 1
ElseIf Text1.Text = "Left" Then
temp = SwapMouseButton(0)
a = 0
End If
If a = 1 Then
Text1.Text = "Left"
ElseIf a = 0 Then Text1.Text = "Right"
End If
End Sub
------------------------------------------------------------

Private Sub Form_Load()
Text1.Text = "Right"
End Sub