Перемещение большой картинки мышкой внутри PictureBox

Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim pc As PictureBox = CType(sender, PictureBox)
        e.Graphics.Clear(Color.Transparent)
        e.Graphics.DrawImageUnscaled(pc.Image, LocationPaint)
    End Sub

 Private Sub PictureBox_MouseWheel(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseWheel
 
 
        If e.Delta <> 0 Then
            If e.Delta <= 0 Then
                If PictureBox1.Width < 100 Then Exit Sub 
            Else
                If PictureBox1.Width > 10000 Then Exit Sub 
            End If
 
            PictureBox1.Width += CInt(PictureBox1.Width * e.Delta / 1000)
            PictureBox1.Height += CInt(PictureBox1.Height * e.Delta / 1000)
            Txt_Height_Image.Text = PictureBox1.Height
            Txt_Width_Image.Text = PictureBox1.Width
        End If
 
      
      
    End Sub

Public Class Form1
    Dim LocationCursor As Point
    Dim LocationCursorOffset As Point
    Dim LocationPaint As Point
    Dim DefaultImage As Image
    Dim ScaleImage As Size
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
        DefaultImage = PictureBox1.Image
    End Sub
 
    Private Sub PictureBox1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Me.Cursor = Cursors.SizeAll
            LocationCursor = Cursor.Position
        End If
    End Sub
 
    Private Sub PictureBox1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        Dim pc As PictureBox = CType(sender, PictureBox)
 
        'Если PictureBox меньше чем Panel, двигать картинку нельзя
        If pc.Width > Panel1.Width And pc.Height > Panel1.Height Then
            If e.Button = Windows.Forms.MouseButtons.Right Then
                LocationCursorOffset = Cursor.Position - LocationCursor
                LocationPaint += LocationCursorOffset
                LocationCursor = Cursor.Position
                pc.Invalidate()
            End If
        End If
 
    End Sub
 
    Private Sub PictureBox1_MouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        Me.Cursor = Cursors.Default
    End Sub
 
    Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim pc As PictureBox = CType(sender, PictureBox)
        e.Graphics.Clear(Color.Transparent)
        e.Graphics.DrawImageUnscaled(pc.Image, LocationPaint)
    End Sub
 
    Public Function ImageZoom(ByVal image As Image, ByVal size As Size) As Image
        Dim bmap As Bitmap = New Bitmap(image, image.Size + size)
        Dim grap As Graphics = Graphics.FromImage(bmap)
        grap.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBicubic
        Return bmap
    End Function
 
    Private Sub PictureBox_MouseWheel(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseWheel
        Dim pc As PictureBox = CType(sender, PictureBox)
        If e.Delta <> 0 Then
            ScaleImage += New Size(CInt(pc.Width * e.Delta / 1000), CInt(pc.Height * e.Delta / 1000))
            LocationPaint = New Point(0, 0)
            pc.Image = ImageZoom(DefaultImage, ScaleImage)
        End If
    End Sub
 
    Private Sub PictureBox1_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter
        sender.Select()
    End Sub
End Class

e.Graphics.Clear(Color.Transparent)