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