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