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.


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