Přehození tlačítek myši
Declare Function
SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
*Deklarace musí být
celá na samostatném řádku
Použití:
'Přehození tlačítek
s = SwapMouseButton(True)
'Vrácení do původního
stavu
s = SwapMouseButton(False)