' 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 System.IO

Public Class Chap0101
    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine("Chapter 1 example 1: Hello World")

        ' 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("Chap0101.pdf", FileMode.Create))

        ' step 3: we open the document
        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