''
'' This code is part of Document Solutions for Word demos.
'' Copyright (c) MESCIUS inc. All rights reserved.
''
Imports System.IO
Imports System.Drawing
Imports 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 Function
End Class