'	**********************************************************
'	    Examples of iTextDotNet in VB.NET: Create RTF-Files
'		Chapters: 0801
'	**********************************************************
'		File: CreateRtf.vb 
'		Author: Klaus Horsten <horsten at gmx.at>
'		Purpose: Create RTF-Examples in VB.NET
'		Uses Files (add a reference to): 
'			iTextdotNET.dll
'			JavaRT.dll
'			vjslib.dll
'		Credits and Copyrights: 
'		* Original Author and Copyright 2001 - 2003: 
'		  Bruno Lowagie <itext at lowagie.com>
' 		  See iText Tutorial:
' 		  http://www.lowagie.com/iText/tutorial/
'		* Uses iText .NET:
'		  Copyright 2002 - 2003 Kazuya Ujihara <ujihara at aurora.dti.ne.jp>
'	**********************************************************
' ====================================================================
'
' This code is free software. It may only be copied or modified
' if you include the following copyright notice:
'
' --> Copyright 2001 by Bruno Lowagie <--
'
' This code is part of the 'iText Tutorial'.
' You can find the complete tutorial at the following address:
' http://www.lowagie.com/iText/tutorial/
'
' 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.
'
' itext@lowagie.com

Option Strict On

Imports System
Imports com.lowagie.text
Imports com.lowagie.text.rtf
Imports java.io

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

        Dim document As New com.lowagie.text.Document()
        Dim FileOutputStream As java.io.FileOutputStream
        FileOutputStream = New java.io.FileOutputStream("Chap0801.rtf")
        RtfWriter.getInstance(document, FileOutputStream)
        document.open()
        document.add(New Paragraph("Hello World"))
        document.close()
    End Sub
End Class