'''' This code is part of Document Solutions for PDF .NET demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.Collections.GenericImports GrapeCity.Documents.PdfImports GCDRAW = GrapeCity.Documents.Drawing
Public Class ImagesToPdf    Public Function CreatePDF(ByVal stream As Stream) As Integer        Dim doc = New GcPdfDocument()
        ' Load the page images from the Resources/ImagesBis folder:        Dim pageImages = New List(Of (FileName As String, PageImage As GCDRAW.Image))()        For Each fname In Directory.GetFiles(Path.Combine("Resources", "ImagesBis"), "Wetlands-page*.png", SearchOption.TopDirectoryOnly)            pageImages.Add((Path.GetFileName(fname), GCDRAW.Image.FromFile(fname)))        Next
        ' Optional: sort the page images by file name:        pageImages.Sort(Function(a, b) String.Compare(a.FileName, b.FileName))
        ' Align images to the top-left corner without scaling, cropping, or tiling, while preserving aspect ratio:        Dim align = New GCDRAW.ImageAlign(GCDRAW.ImageAlignHorz.Left, GCDRAW.ImageAlignVert.Top, False, False, True, False, False)
        ' Add one page per image and draw the image on the page:        For Each pageImage In pageImages            Dim page = doc.Pages.Add()            page.Graphics.DrawImage(pageImage.PageImage, page.Bounds, Nothing, align)        Next
        ' Done:        doc.Save(stream)        Return doc.Pages.Count    End FunctionEnd Class