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