by Pratik U. Shukla (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 9th February 2002
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Swapping Controls for left-right mouse buttons.
VBcoders
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