Using MSProject Automation

[SDyke]

I have a Visual FoxPro application that I create an MSProject file from. I have everything working except setting particular tasks to bold. How can I accomplish this?

...
x = 1
Scan

oProj.Tasks.Add(msprojectExportCursor2.deptno)
tre2 = oProj.Tasks.Count
oProj.Tasks.Item(tre2).Application.FontBold(.T.)
Do While .T.
If oProj.Tasks.Item(tre2).OutlineLevel = 1 Then
Exit
EndIf
oProj.Tasks.Item(tre2).OutlineOutdent
EndDo
...
This only puts bold on first task. I need it on every task that is at Outline Level 1