FontFormat.bas

Attribute VB_Name = "FontFormat"
Public FONTFORMAT_UNDERLINE_NONE As String
Public FONTFORMAT_UNDERLINE_SINGLE_LINE As String
Public FONTFORMAT_UNDERLINE_DOUBLE_LINE As String
Public FONTFORMAT_UNDERLINE_HEAVY_LINE As String
Public FONTFORMAT_UNDERLINE_DOTTED_LINE As String
Public FONTFORMAT_UNDERLINE_DOTTED_HEAVY_LINE As String
Public FONTFORMAT_UNDERLINE_DASH_LINE As String
Public FONTFORMAT_UNDERLINE_DASH_HEAVY_LINE As String
Public FONTFORMAT_UNDERLINE_DASH_LONG_LINE As String
Public FONTFORMAT_UNDERLINE_DASH_LONG_HEAVY_LINE As String
Public FONTFORMAT_UNDERLINE_DOT_DASH_LINE As String
Public FONTFORMAT_UNDERLINE_DOT_DASH_HEAVY_LINE As String
Public FONTFORMAT_UNDERLINE_DOT_DOT_DASH_LINE As String
Public FONTFORMAT_UNDERLINE_DOT_DOT_DASH_HEAVY_LINE As String
Public FONTFORMAT_UNDERLINE_WAVY_LINE As String
Public FONTFORMAT_UNDERLINE_WAVY_HEAVY_LINE As String
Public FONTFORMAT_UNDERLINE_WAVY_DOUBLE_LINE As String
Public FONTFORMAT_SPACING_TYPE_NORMAL As String
Public FONTFORMAT_SPACING_TYPE_EXPANDED As String
Public FONTFORMAT_SPACING_TYPE_CONDENSED As String

Sub Initialize()
    FONTFORMAT_UNDERLINE_NONE = "none"
    FONTFORMAT_UNDERLINE_SINGLE_LINE = "sng"
    FONTFORMAT_UNDERLINE_DOUBLE_LINE = "dbl"
    FONTFORMAT_UNDERLINE_HEAVY_LINE = "heavy"
    FONTFORMAT_UNDERLINE_DOTTED_LINE = "dotted"
    FONTFORMAT_UNDERLINE_DOTTED_HEAVY_LINE = "dottedHeavy"
    FONTFORMAT_UNDERLINE_DASH_LINE = "dash"
    FONTFORMAT_UNDERLINE_DASH_HEAVY_LINE = "dashHeavy"
    FONTFORMAT_UNDERLINE_DASH_LONG_LINE = "dashLong"
    FONTFORMAT_UNDERLINE_DASH_LONG_HEAVY_LINE = "dashLongHeavy"
    FONTFORMAT_UNDERLINE_DOT_DASH_LINE = "dotDash"
    FONTFORMAT_UNDERLINE_DOT_DASH_HEAVY_LINE = "dotDashHeavy"
    FONTFORMAT_UNDERLINE_DOT_DOT_DASH_LINE = "dotDotDash"
    FONTFORMAT_UNDERLINE_DOT_DOT_DASH_HEAVY_LINE = "dotDotDashHeavy"
    FONTFORMAT_UNDERLINE_WAVY_LINE = "wavy"
    FONTFORMAT_UNDERLINE_WAVY_HEAVY_LINE = "wavyHeavy"
    FONTFORMAT_UNDERLINE_WAVY_DOUBLE_LINE = "wavyDbl"
    FONTFORMAT_SPACING_TYPE_NORMAL = "normal"
    FONTFORMAT_SPACING_TYPE_EXPANDED = "expanded"
    FONTFORMAT_SPACING_TYPE_CONDENSED = "condensed"
End Sub