Have you tried assigning 1 instead of .T. ?

>Can some one tell me why the code line fontbold will not work?
>
>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.Tasks.Item(t).FontBold = .T.
> If subno1b <> 1 Then
> oProjt.Tasks.Item(t).OutlineIndent
> EndIf
> EndIf
> EndIf
>Next t