Change late tasks to Red

[David Chazin]

Hi,

I'm trying to turn late tasks to red. I've got the following code that will
step through all tasks, determining which tasks are late, however I haven't
been able to figure out how to change the task's color to red.

Sub ColorCode()
Dim T As Task, PlanDate As Date
PlanDate = CDate("8/13/2003")
For Each T In ActiveProject.Tasks
If Not (T Is Nothing) Then
If T.Finish <= PlanDate And T.PercentComplete < 100 And T.Summary =
False Then
'CHANGE TASK COLOR TO RED ?????
End If
End If
Next T
End Sub

Thanks in advance for your help.

--David Chazin