'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.IOImports System.DrawingImports GrapeCity.Documents.Word
Public Class PicEffTransparentColor    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()        Util.SetNarrowMargins(doc)        Dim captionStyle = doc.Styles.Add("CaptionStyle", doc.Styles(BuiltInStyleId.BodyTextFirstIndent2))
        Dim bytes = File.ReadAllBytes(Path.Combine("Resources", "Images", "wargravepink.jpg"))        doc.Body.AddParagraph().AddRun().AddPicture(bytes, "image/jpeg", 450, 300)        doc.Body.AddParagraph("Original picture", captionStyle)        Dim picture = doc.Body.AddParagraph().AddRun().AddPicture(bytes, "image/jpeg", 450, 300)        picture.ImageData.SetColorTransparent(New UserColor(Color.Black))        picture.Fill.Type = FillType.Pattern        picture.Fill.PatternFill.Type = PatternFillType.LargeConfetti        picture.Fill.PatternFill.BackColor.RGB = Color.LightYellow        picture.Fill.PatternFill.ForeColor.RGB = Color.Red        doc.Body.AddParagraph($"Black is transparent, with confetti fill", captionStyle)        Return doc    End FunctionEnd Class