pan og zoom i picturebox

Hejsa
jeg har en picturebox der ligger på et panel, jeg kan panorere rundt på billedet, men jeg jeg ville gerne kunne zoome ind der hvor jeg har panoreret mig hen til, jeg har lavet zoom fuktionen, men den starter altid i midten af billedet, og der hjælper jo ikke så meget, hvis jeg har panoreret mig ud i et hjørne og vil forstørre det...

her er koden

Private Sub RedrawPicture()
        Dim P As Single = Me.TrackBar1.Value
        Dim NewWidth As Single = _img.Width / 100 * P
        Dim Newheight As Single = _img.Height / 100 * P

        Dim MidtPanelX As Single = Panel1.Width / 2
        Dim MidtPanelY As Single = Panel1.Height / 2

        With pb1  -----picturebox
            .SizeMode = PictureBoxSizeMode.StretchImage

            .SuspendLayout()

            Dim PixMidtX As Single = .Width / 100 * _XP
            Dim PixMidty As Single = .Height / 100 * _YP

            Me.lblScalePercent.Text = P.ToString & "%"
            .Size = New System.Drawing.Size(NewWidth, Newheight)
            .Location = New System.Drawing.Point((MidtPanelX - PixMidtX), (MidtPanelY - PixMidty))

            Panel1.Invalidate()

            .ResumeLayout()
        End With

    End Sub

håber der er en der kan hjælpe