My.Computer.Mouse examples
 Sub Main()
   Dim wheelexist, wheelscrolllines, buttonsswapped As String
      If My.Computer.Mouse.WheelExists Then
         wheelexist = "Mouse Wheel exists"
      Else
         wheelexist = "No mouse wheel"
      End If
      If My.Computer.Mouse.WheelScrollLines > 0 Then
         wheelscrolllines = "WheelScrollLines = " & My.Computer.Mouse.WheelScrollLines.ToString
      Else
         wheelscrolllines = "WheelScrollLines not greater than zero"
      End If
      If My.Computer.Mouse.ButtonsSwapped = True Then
         buttonsswapped = "Buttons are swapped"
      Else
         buttonsswapped = "Buttons not swapped"
      End If
      Stop ' results are in your Locals window
   End Sub
   
10/15/2015
TheLonelyProgrammer.Net
Alone in a sea of non-programmers