The Overscore property returns or specifies the type of line to appear above the characters in a text object. The Overscore property returns a value of cdrFontLine.
Examples:
The following VBA example creates a text object and applies double lines above and below it.
Sub Test()
Dim s As Shape
Set s = ActiveLayer.CreateArtisticText(4, 5, "A Text String")
With s.Text.FontProperties
.Underline = cdrDoubleThinFontLine
.Overscore = cdrDoubleThinFontLine
End With
End Sub