SetTaskLineCurtain

Purpose: Set up to 5 curtains for an individual task row .

Argument	Type	Required	Purpose
1	Integer	Yes	Task Row (1 based)
2	Integer	Yes	Which curtain for line (1 - 5). Up to 5 task line curtains can be set.
3	String	Yes	Curtain name (if zero length or 1st character is blank, then remove)
4	String	No	Start date override.
5	String	No	End date override.

It's possible to create up to 400 curtains on a single Milestones Professional schedule or template. By default (without calling SetTaskLineCurtain), a curtain will span all of the tasks on the schedule and optionally in the date headings . Once a curtain is named, it is limited to being a task line curtain. Task line curtains will only appear if they are referenced via SetTaskLineCurtain.

With objmilestones

.Activate()

.allcolorsarergb()

.SetStartAndEndDates("01/01/2018", "06/30/2019")

.refresh()

'set up curtains

.setmiscproperty("ShowCurtainsOverHorzGridlines", 1)

.AddCurtain("1/1/2018", "1/15/2018")

.SetCurtainProperties(1, "1/1/2018", "1/31/2018", RGB(255, 0, 0), RGB(0, 0, 0), 1, 0, "Red")

.SetCurtainProperties(2, "1/1/2018", "1/30/2018", RGB(0, 255, 0), RGB(0, 0, 0), 1, 0, "Green")

.settasklinecurtain(1, 1, "red", "3/1/2018", "6/30/2018")

.settasklinecurtain(1, 2, "green", "8/1/2018", "4/30/2019")

.Refresh()

End With

Exit Sub