Как к HSCROLLBAR прикрутить скроллинг мышинный?

[PUNK-GRUNGER]

Компонент делаю - там есть HSCROLLbar... как к нему прикрутить скроллинг? Как вообще работать с скроллингом?

В e.Button есть только Middle (кнопка колесика) и усьо...

Помогайте

[Gloom]

Код: Выделить всё

    Private Sub Form1_MouseWheel(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseWheel
        Dim pt As New Point(e.X, e.Y)
        If HScrollBar1.Bounds.Contains(pt) Then
            Dim delta As Integer = e.Delta * SystemInformation.MouseWheelScrollLines / 120
            If (HScrollBar1.Value + delta) >= HScrollBar1.Minimum And (HScrollBar1.Value + delta) <= HScrollBar1.Maximum Then
                HScrollBar1.Value += delta
            End If
        End If
    End Sub

[PUNK-GRUNGER]

Пасиба Спас

[NicSoft]

А кто-нибудь пробовал применить данный код не к форме, а к контролу. У меня на PictureBox не срабатывает. Хотя событие такое есть. Конечно можно пересчитать координаты, но интересно почему не срабатывает событие?