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