'''' 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.Pdf.TextMap
Public Class ChangeTextAttrs    Public Function CreatePDF(ByVal stream As Stream) As Integer        Dim doc = New GcPdfDocument()        Using fs = File.OpenRead(Path.Combine("Resources", "PDFs", "TimeSheet.pdf"))            doc.Load(fs)            Dim pageCount = doc.Pages.Count            ' Duplicate the PDF:            doc.MergeWithDocument(doc)            ' Modify text on the first copy:            For i = 0 To pageCount - 1                Dim ftps = New FindTextParams("\d+/\d+/\d+|\d+:\d+| am| pm", False, False, 72, 72, False, True)                ' TextRenderingAttrs allows you to specify the following text rendering attributes:                ' - RenderingMode                ' - FillAlpha                ' - FillColor                ' - StrokeAlpha                ' - StrokePen                doc.Pages(i).SetTextRenderingAttrs(ftps, New TextRenderingAttrs() With {                    .RenderingMode = TextRenderingMode.FillStroke,                    .FillColor = Color.Red,                    .FillAlpha = 0.5F,                    .StrokeAlpha = 1.0F,                    .StrokePen = New GrapeCity.Documents.Drawing.Pen(Color.Blue, 1)})            Next            '' Done:            doc.Save(stream)            Return doc.Pages.Count        End Using    End FunctionEnd Class