例 次の使用例は、マウスにスクロール ホイールがあるかどうかを判断し、このプロパティを My.Computer.Mouse.WheelExists 使用して、マウス ホイールが回転したときにスクロールする量を決定します。 If My.Computer.Mouse.WheelExists Then Dim lines As Integer = My.Computer.Mouse.WheelScrollLines If lines > 0 Then MsgBox("Application scrolls " & lines & " line(s) for each wheel turn.") Else MsgBox("Application scrolls " & (-lines) & " page(s) for each wheel turn.") End If Else MsgBox("M