Private m_PanStartPoint As New Point
 
    Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        'Capture the initial point 	
        m_PanStartPoint = New Point(e.X, e.Y)
    End Sub
 
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        'Verify Left Button is pressed while the mouse is moving	
        If e.Button = Windows.Forms.MouseButtons.Left Then
            'Here we get the change in coordinates.		
            Dim DeltaX As Integer = (m_PanStartPoint.X - e.X)
            Dim DeltaY As Integer = (m_PanStartPoint.Y - e.Y)
            'Then we set the new autoscroll position.		
            'ALWAYS pass positive integers to the panels autoScrollPosition 
            ' method		
            Panel1.AutoScrollPosition = _
            New Drawing.Point((DeltaX - Panel1.AutoScrollPosition.X), _
                              (DeltaY - Panel1.AutoScrollPosition.Y))
        End If
    End Sub