Invisible Legends in Pie Charts

[User (Legacy)]

I haven't been able to get a legend box to appear in a pie chart.  I tried 

the following code (adjusted from a sample): 

    chfxAssets.Gallery = PIE 

    chfxAssets.PointLabels = True 

    chfxAssets.OpenDataEx COD_VALUES, 1, rlist.length - 1 

        For i = 0 To rlist.length - 1 

            Set row = rlist.Item(rowcount) 

            chfxAssets.ValueEx(0, i) = row.selectSingleNode("Value").Text 

            chfxAssets.Legend(i) = row.selectSingleNode("SubCategory").Text 

        Next 

    chfxAssets.CloseData COD_VALUES 

    chfxAssets.LegendBox = True 

    chfxAssets.LegendBoxObj.AutoSize = True 

    chfxAssets.LegendBoxObj.Docked = TGFP_BOTTOM 

I'd appreciate any help... 

Thanks, 

Sajid S. Raza