'''' This code is part of Document Solutions for PDF .NET demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports GrapeCity.Documents.PdfImports GrapeCity.Documents.Text
'' One of the simplest ways to create a "Hello, World!" PDF.Public Class HelloWorld    Sub CreatePDF(ByVal stream As Stream)        '' Create a new PDF document:        Dim doc = New GcPdfDocument()        '' Add a page, get its graphics:        Dim g = doc.NewPage().Graphics        '' Draw a string on the page.        '' Notes:        '' - For simplicity, here we are using a standard PDF font        ''   (the 14 standard fonts' metrics are built into DsPdf and are always available);        '' - DsPdf coordinates start at top left corner of a page, using 72 dpi by default:        g.DrawString(            "Hello, World, from DsPdf and VB.NET!",            New TextFormat With {                .Font = StandardFonts.Times,                .FontSize = 12            },            New PointF(72, 72))        '' Save the PDF        doc.Save(stream)    End SubEnd Class