VB マウスホイールに反応する

マウスホイールに反応する

Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel

    If e.Delta > 0 Then
        MsgBox("上方向にスクロールしました。")
    Else
        MsgBox("下方向にスクロールしました。")
    End If

End Sub