Public Shared Sub PackPdf(pdfFileName As String, optimize As Boolean)
    ' open PDF document to Read/Write
    Dim pdfDocument As New Vintasoft.Imaging.Pdf.PdfDocument(pdfFileName)
    ' create PdfFormat - 1.6 format, with compressed cross-reference table
    Dim format As New Vintasoft.Imaging.Pdf.PdfFormat("1.6", True, True)
    If optimize Then
        ' set JPEG Quality to 80
        Vintasoft.Imaging.Pdf.PdfCompressionSettings.DefaultSettings.JpegQuality = 80
        ' create optimize settings
        'compression for Color images - JPEG
        'compression for B/W images - not changed
        Dim optimizeSettings As New Vintasoft.Imaging.Pdf.PdfOptimizeSettings(Vintasoft.Imaging.Pdf.PdfCompression.Jpeg, Vintasoft.Imaging.Pdf.PdfCompression.Undefined, Vintasoft.Imaging.Pdf.PdfCompression.Undefined)
        'compression for Data - not changed
        ' optimize and Pack document
        pdfDocument.Optimize(format, optimizeSettings)
    Else
        ' pack document
        pdfDocument.Pack(format)
    End If
    ' free resources
    pdfDocument.Dispose()
End Sub

public static void PackPdf(string pdfFileName, bool optimize)
{
    // open PDF document to Read/Write
    Vintasoft.Imaging.Pdf.PdfDocument pdfDocument = 
        new Vintasoft.Imaging.Pdf.PdfDocument(pdfFileName);
    // create PdfFormat - 1.6 format, with compressed cross-reference table
    Vintasoft.Imaging.Pdf.PdfFormat format = 
        new Vintasoft.Imaging.Pdf.PdfFormat("1.6", true, true);
    if (optimize)
    {
        // set JPEG Quality to 80
        Vintasoft.Imaging.Pdf.PdfCompressionSettings.DefaultSettings.JpegQuality = 80;
        // create optimize settings
        Vintasoft.Imaging.Pdf.PdfOptimizeSettings optimizeSettings = 
            new Vintasoft.Imaging.Pdf.PdfOptimizeSettings(
                Vintasoft.Imaging.Pdf.PdfCompression.Jpeg,       //compression for Color images - JPEG
                Vintasoft.Imaging.Pdf.PdfCompression.Undefined,  //compression for B/W images - not changed
                Vintasoft.Imaging.Pdf.PdfCompression.Undefined); //compression for Data - not changed
        // optimize and Pack document
        pdfDocument.Optimize(format, optimizeSettings);
    }
    else
    {
        // pack document
        pdfDocument.Pack(format);
    }
    // free resources
    pdfDocument.Dispose();
}