'''' This code is part of Document Solutions for PDF .NET demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports SystemImports System.IOImports System.DrawingImports System.LinqImports System.Collections.GenericImports GrapeCity.Documents.PdfImports GrapeCity.Documents.Svg
'' This sample shows how to render an SVGZ (compressed SVG) image.Public Class RenderSvgz    Function CreatePDF(ByVal stream As Stream) As Integer        Dim svgPath = Path.Combine("Resources", "SvgMisc", "Smiling-Girl.svgz")        Using svg = GcSvgDocument.FromSvgz(File.ReadAllBytes(svgPath))            '' Render the image and a border around it:            Dim doc = New GcPdfDocument()            Dim g = doc.NewPage().Graphics            Dim pt = New PointF(72, 72)            g.DrawSvg(svg, pt)            Dim sz = svg.GetIntrinsicSize(SvgLengthUnits.Points)            g.DrawRectangle(New RectangleF(pt, sz), Color.MediumPurple)
            '' Done:            doc.Save(stream)            Return doc.Pages.Count        End Using    End FunctionEnd Class