Private Sub Command7_Click()
Dim PDFRPT As New PDFDocument
PDFRPT.NewPDF "This is my first PDF"
PDFRPT.TextOut "Hello World!", 10, 10
PDFRPT.AddPage
PDFRPT.TextOut "Hello World!", 10, 10
PDFRPT.AddPage
PDFRPT.TextOut "Hello World!", 10, 10
PDFRPT.AddPage
PDFRPT.TextOut "Hello World!", 10, 10
PDFRPT.AddPage
PDFRPT.TextOut "Hello World!", 10, 10
PDFRPT.SavePDF "c:\provaocx.pdf"
End Sub