'''' This code is part of Document Solutions for Word demos.'' Copyright (c) MESCIUS inc. All rights reserved.''Imports System.DrawingImports GrapeCity.Documents.Word
Public Class FontFillLine    Function CreateDocx() As GcWordDocument        Dim doc = New GcWordDocument()        Dim style = doc.Styles.Add("My Style", StyleType.Paragraph)        style.Font.Size = 48
        Dim fill = style.Font.Fill        fill.Type = FillType.Gradient        Dim gradient = fill.GradientFill        gradient.Angle = 64        gradient.Stops(0).Color.RGB = Color.LightSeaGreen        gradient.Stops(1).Color.RGB = Color.Orange
        Dim line = style.Font.Line        line.Width = 1        fill = line.Fill        fill.Type = FillType.Solid        fill.SolidFill.RGB = Color.Blue
        doc.Body.Paragraphs.Add("Font Fill and Line styles.", style)
        Return doc    End FunctionEnd Class