Dim pdf As PDFDocument, text As String, texts As TextArea
        Dim table As Table, row As Row, cell As Cell, temp As String
        texts = New TextArea()
 
        pdf = New PDFDocument()
        ' temp = Environment.GetEnvironmentVariable("temp")
        ' If Not Mid(temp, 1, Len(temp)) = "\" Then temp += "\"
        pdf.OutputFileName = "pdftext.pdf" 'temp + "pdfnet.pdf"
        pdf.Creator = "David Bliss"
 
        pdf.AddControl(texts)
        texts = New TextArea()
        text = "x2PDF is a .Net API for creating PDF documents on the fly. " _
        + "The first version will be created in .Net, with other version for" & _
        "COM and Java. "
 
        texts.AddText(text, Fonts.Helvetica, 10)
        texts.AddText("Things that are working:", Fonts.Courier, 12)
        texts.AddText("1. Text and wordwrapping", Fonts.Courier, 12)
        texts.AddText("2. Adobe Fonts and font sizes", Fonts.Courier, 12)
        texts.AddText("3. Bold text", Fonts.Courier, 12, FontStyles.Bold)
        texts.AddText("4. Tables", Fonts.Courier, 12, FontStyles.Regular)
        pdf.AddControl(texts)
 
        texts = New TextArea()
        table = New Table()
        row = New Row()
        cell = New Cell()
        cell.AddText("First Cell")
        row.AddCell(cell)
        cell = New Cell()
        cell.AddText("Second Cell")
        row.AddCell(cell)
        table.AddRow(row)
        row = New Row()
        cell = New Cell()
        cell.AddText("Third Cell")
        row.AddCell(cell)
        cell = New Cell()
        cell.AddText("Fourth Cell")
        row.AddCell(cell)
        table.AddRow(row)
        pdf.AddControl(table)
 
        pdf.OutputToFile()