The Strikethru property returns or specifies the type of line that appears through the sharacters in a text object. The Strikethru property returns a value of cdrFontLine.
Examples:
The following VBA example creates a text object and applies a thin double line through it.
Sub Test()
Dim s As Shape
Set s = ActiveLayer.CreateArtisticText(4, 5, "A Text String")
s.Text.FontProperties.Strikethru = cdrDoubleThinFontLine
End Sub