SetFreeTextPropertyExample

The code below the example adds the freeform text and then sets all of the properties (font, background color, underline, text color, etc.)

Dim textstring as string

Dim freetextindex As Integer

with objmilestones

  textstring = "line1" + Chr(13) + "line2" + Chr(13) + "line3"

  freetextindex = objmilestones.AddFreeText(textstring, 1, 1)

  objmilestones.setfreetextproperty freetextindex, "TextColor", 6

  objmilestones.setfreetextproperty freetextindex, "BorderThe line drawn around the schedule when it is shown on the screen.", 1

  objmilestones.setfreetextproperty freetextindex, "Transparent", 0

  objmilestones.setfreetextproperty freetextindex, "BackgroundColor", 17

  objmilestones.setfreetextproperty freetextindex, "Italic", 1

  objmilestones.setfreetextproperty freetextindex, "Shadow", 1

  objmilestones.setfreetextproperty freetextindex, "ShadowColor", 6

  objmilestones.setfreetextproperty freetextindex, "TextHeight", 22

  objmilestones.setfreetextproperty freetextindex, "Underline", 1

  objmilestones.setfreetextproperty freetextindex, "Bold", 1

  objmilestones.setfreetextproperty freetextindex, "TagInfo", "Tag Text"

  objmilestones.setfreetextproperty freetextindex, "FontName", "Verdana"

end with