Untitled

    Private Sub SaveInvoice(ByVal filename As String)
        'Main.p1.PictureBox1.Image.Save(filename, System.Drawing.Imaging.ImageFormat.Jpeg)
        Dim objImage As System.Drawing.Image
        objImage = System.Drawing.Image.FromFile(filename)
        Dim objCallback As System.Drawing.Image.GetThumbnailImageAbort = New System.Drawing.Image.GetThumbnailImageAbort(AddressOf ThumbnailCallback)
        objImage = objImage.GetThumbnailImage(100, 100, objCallback, IntPtr.Zero)
        objImage.Save("C:\test.jpg")
    End Sub