Mega Code Archive

 

Categories / VisualBasic Script / Windows API

 

Check mouse button

Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Sub ShowHands()     If GetSystemMetrics(SM_SWAPBUTTON) = False Then         MsgBox "Your mouse is right-handed!"     Else         MsgBox "Your mouse is left-handed!"     End If End Sub