GefFontFormat.Underline (property)

Gets and sets the underline state of the font.

Syntax:

Boolean = object.Underline
object.Underline = Boolean

Description:

The Underline property switches the font between normal and underlined.

Example:

Sub GefFontFormat_Underline()

Dim oCimObj As GefObject

    Dim oCimObjTxtFmt As
GefTextFormat

    Dim oCimObjFntFmt As
GefFontFormat

Set oCimObj = CimGetObject

    Set oCimObjTxtFmt =
oCimObj.TextFormat

    If Not oCimObjTxtFmt Is Nothing
Then

        Set
oCimObjFntFmt = oCimObjTxtFmt.Font

        If Not
oCimObjFntFmt Is Nothing Then

            oCimObjFntFmt.Underline
= gefStateTrue

            CimGetScreen.Refresh
False

        End
If

End If

End Sub