This worked for me on a fairly small image. I added a sensitivity that I
through into the calculation to adjust the speed of movement as desired.

Public Class Form1
    Dim x1, y1 As Double
    Dim scrollSensitivity As Double
    Dim md As Boolean
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        md = True
        x1 = Me.Panel1.HorizontalScroll.Value
        y1 = Me.Panel1.VerticalScroll.Value
    End Sub

    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        scrollSensitivity = 4
        If md = True Then
            Try
                Me.Panel1.HorizontalScroll.Value = (e.X - x1) /
scrollSensitivity
                Me.Panel1.VerticalScroll.Value = (e.Y - y1) /
scrollSensitivity
            Catch ex As Exception
            End Try
        End If
    End Sub

    Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As
System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        md = False
    End Sub
--
-Johnhttp://www.jmbundy.blogspot.com/
Please rate when your question is answered to help us and others know what
is helpful.



"Jon" wrote:
Hello all.

I have an ImagePanel that contains and ImageBox. It allows zooming and
has a couple of Scroll Bars that at the moment are the only way to
move about. A link to the code is here:http://www.codeproject.com/KB/miscctrl/zoompancontrol.aspx

I'd like to add in the functionality where a user could 'grab' the
image to pan it around. Can anyone please help?

Jon

.

Hello all.

I have an ImagePanel that contains and ImageBox. It allows zooming and
has a couple of Scroll Bars that at the moment are the only way to
move about. A link to the code is here: http://www.codeproject.com/KB/miscctrl/zoompancontrol.aspx

I'd like to add in the functionality where a user could 'grab' the
image to pan it around. Can anyone please help?

Jon

.