>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

Isn't look better?