StructFontProperties.Overscore

Property Overscore As cdrFontLine

Member of StructFontProperties

The Overscore property returns or sets the type of line that appears above text.

The Overscore property returns a value of cdrFontLine.

The following code 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 

Copyright 2007 Corel Corporation. All rights reserved.