Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long Public Const SM_SWAPBUTTON = 23 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