ConvertToCurves not working.

Hi,

Document.ActivePage.Shapes.All.ConvertToCurves does not seem to work. But when I use the following snippet (slow performance), it works..


objLayers = objCorelDocument.ActivePage.Layers
objCorelDocument.ActivePage.Shapes.All.ConvertToCurves()
For Each objLayer As CorelDRAW.Layer In objLayers
If (objLayer.Visible) Then
For Each objShape As CorelDRAW.Shape In objLayer.Shapes
If (objShape.Type = CorelDRAW.cdrShapeType.cdrTextShape) Then
objShape.ConvertToCurves()
Application.DoEvents()
End If
Next
End If
Next


Am using coreldraw 12 vba ...

Any ideas where I may be going wrong?

TIA
Sriram

try the attachment

Lev,
Thanks for the help.. But it didnt greatly improve the performance either..

I am on a XP with 1GIG RAM and using VB.Net on .Net 1.2..

Thanks
Sriram