Saving the real image Picturebox

Question

I’m trying to save the contents of a picturebox, but it always saves the original image and not the one being presented. Can someone help me?

Dim myEncoder As Encoder
    Dim myImageCodecInfo As ImageCodecInfo
    Dim myEncoderParameter As EncoderParameter
    Dim myEncoderParameters As EncoderParameters
    Dim bmp As Bitmap = CType(imgJpgPng.Image, Bitmap)
    Dim bmpt As New Bitmap(640, 640)
    Using g As Graphics = Graphics.FromImage(bmpt)
        g.DrawImage(bmp, 0, 0, bmpt.Width, bmpt.Height)
    End Using
    myImageCodecInfo = GetEncoderInfo(ImageFormat.Jpeg)
    myEncoder = Encoder.Quality
    myEncoderParameters = New EncoderParameters(1)
    myEncoderParameter = New EncoderParameter(myEncoder, CType(75L, Int32))
    myEncoderParameters.Param(0) = myEncoderParameter
    bmpt.Save("d:\TempImg\0000.JPG", myImageCodecInfo, myEncoderParameters)