MS Project color rolled up taskbar

[wevens]

Hi, does anybody know how you can change the bar color of an individual rolled up task by means of VB?

More specific: Suppose you have two tasks after each other rolled up to a main task. The main task will now show 2 bars on the same line. How can the color of one of these bars be changed? (It can be done manually!)

To change the bar color of a normal task, I use code like this:
activeproject.Tasks.Application.GanttBarFormat(taskid:=4,middlecolor:=pjgreen)

 

[wevens]

(solution provided by Gérard Ducouret)

Refer to the subtask with this code:

GanttBarFormat TaskId:=x,GanttStyle:=y, MiddleColor:=z

x=TaskID
y=style number of the rolled up bar (see bar styles: default = 5)
z=predefined color (e.g. pjGreen)