' This code is free software. It may only be copied or modified
' if you include the following copyright notice:
'
' --> Copyright 2001 by Bruno Lowagie <--
' --> Copyright 2004 by Kazuya Ujihara <--
'
' This code is example code of 'iText .NET'.
' See http://www.ujihara.jp/iTextdotNET/examples.html
'
' This code is distributed in the hope that it will be useful,
' but WITHOUT ANY WARRANTY; without even the implied warranty of
' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

Option Strict On

Imports System
Imports com.lowagie.text
Imports com.lowagie.text.pdf
Imports com.lowagie.text.html
Imports System.IO

Public Class Chap0106
    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine("Chapter 1 example 6: Meta Information")

        ' step 1: creation of a document-object
        Dim document As New Document()

        ' step 2:
        ' we create a writer that listens to the document
        ' and directs a PDF-stream to a file

        PdfWriter.getInstance(document, New FileStream("Chap0106.pdf", FileMode.Create))
        HtmlWriter.getInstance(document, Console.OpenStandardOutput())

        ' step 3: we add some metadata and open the document

        document.addTitle("Hello World example")
        document.addSubject("This example explains step 3 in Chapter 1")
        document.addKeywords("Metadata, iText, step 3, tutorial")
        document.addCreator("My program using iText")
        document.addAuthor("Bruno Lowagie")
        document.addHeader("Expires", "0")
        document.open()

        ' step 4: we add a paragraph to the document
        document.add(New Paragraph("Hello World"))

        ' step 5: we close the document
        document.close()
    End Sub
End Class