''' <summary>
''' Loads the PDF document and assigns custom fonts directory.
''' </summary>
''' <param name="filename">The name of PDF document.</param>
''' <returns>Loaded PDF document.</returns>
Public Function LoadPdfDocumentAndSetFontsDictionary(filename As String) As Vintasoft.Imaging.Pdf.PdfDocument
    ' load PDF document
    Dim pdfDocument As New Vintasoft.Imaging.Pdf.PdfDocument(filename)
    ' define path to directory with custom fonts
    Dim directoryWithFonts As String = "d:\Environment\CustomFonts\"
    ' assign custom fonts directory
    pdfDocument.FontProgramsController = New Vintasoft.Imaging.Fonts.FileFontProgramsControllerWithFallbackFont(True, directoryWithFonts)

    Return pdfDocument
End Function

/// <summary>
/// Loads the PDF document and assigns custom fonts directory.
/// </summary>
/// <param name="filename">The name of PDF document.</param>
/// <returns>Loaded PDF document.</returns>
public Vintasoft.Imaging.Pdf.PdfDocument LoadPdfDocumentAndSetFontsDictionary(string filename)
{
    // load PDF document
    Vintasoft.Imaging.Pdf.PdfDocument pdfDocument = new Vintasoft.Imaging.Pdf.PdfDocument(filename);
    // define path to directory with custom fonts
    string directoryWithFonts = @"d:\Environment\CustomFonts\";
    // assign custom fonts directory
    pdfDocument.FontProgramsController = 
        new Vintasoft.Imaging.Fonts.FileFontProgramsControllerWithFallbackFont(true, directoryWithFonts);

    return pdfDocument;
}