Sub Test() Dim s As Shape Set s = ActiveLayer.CreateArtisticText(4, 5, "A Text String") With s.Text.FontProperties .Underline = cdrDoubleThinFontLine .Overscore = cdrDoubleThinFontLine End WithEnd Sub