Home » System & API » How to Swap Mouse Buttons
How to Swap Mouse Buttons
Posted on January 5, 2009
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | 'System & API - How to Swap Mouse Buttons Option Explicit 'Add two CommandButtons to your form. The first one is to swap the mouse buttons. 'The second one is to swap back. '(remember to click with the right button, because the buttons had been swapped). Declare Function SwapMouseButton& Lib "user32" (ByVal bSwap As Long) Private Sub Command1_Click() Call SwapMouseButton&(1) End Sub Private Sub Command2_Click() Call SwapMouseButton&(0) End Sub |
Related posts:
- How to Get the number of Mouse Buttons
- How to Enable/Disable Mouse trails
- How to Check whether Mouse exist or not
- How to Set Mouse Cursor position
- How can i get the mouse to automatically click???? Like on its own.
- How to Set Mouse Double Click Time
- How to Show/Hide/Restore Mouse Cursor
- How to disable the Mouse until Reboot
- How to detect on which item the Mouse is hover on ListBox
- How to Move the Cursor to the Control that has focus
Enjoy this article?
Filed under: System & API
Leave a comment
Sponsors
Link Back to us
Donations
If you are benefited from this site, please donate a small contribution to us. It will help to maintain this site better.