Скроллинг на форме посредством мышки

Public Class Form3
    Private LocationCursor As Point
    Private LocationCursorOffset As Point
    Private LocationPaint As Point
    Private Sub Panel1_MouseDown(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Me.Cursor = Cursors.SizeAll
            LocationCursor = Cursor.Position
        End If
    End Sub
    Private Sub Panel1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove
        If e.Button = Windows.Forms.MouseButtons.Right Then
            LocationCursorOffset = Cursor.Position - LocationCursor
            LocationPaint += LocationCursorOffset
            LocationCursor = Cursor.Position
            Panel1.AutoScrollPosition = LocationPaint
        End If
    End Sub
    Private Sub Panel1_MouseUp(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp
        Me.Cursor = Cursors.Default
    End Sub
End Class