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.