Hi!
If FontColor is a property should it be than
oProjt.Tasks.Item(t).FontColor = RGB(...
If yes and it still do not work that way, try to set OutlineIndent property before color change.
>If FontColor is a field, you require to use a REPLACE FontColor WITH RGB(255,0,0).
>If it is a property of object - you see error ;)
>>The first line of code with the > works but not the second. Also there is no errors or interuption of the code.
>>
>>For t = 1 To oProjt.Tasks.Count
>> Seek(AllTrim(oProjt.Tasks.Item(t).Name)) Order (lcIndex2)
>> If Found() Then
>> If subno1 <> 1 Then
>> oProjt.Tasks.Item(t).OutlineIndent
>>
>> > oProjt.Application.SelectTaskField(t,'Name',.F.)
>> > FontColor = RGB(255,0,0)
>>
>> If subno1b <> 1 Then
>> oProjt.Tasks.Item(t).OutlineIndent
>> EndIf
>> EndIf
>> EndIf
>>Next t
Vlad Grynchyshyn, Project Manager, MCP
vgryn@yahoo.comICQ #10709245
The professional level of programmer could be determined by level of stupidity of his/her bugs
It is not appropriate to say that question is "foolish". There could be only foolish answers. Everybody passed period of time when knows nothing about something.