急!!请教图例分几列显示问题!!!!!!

       Set pLegendItem(i) = New HorizontalLegendItem
       Set pLegendItem(i).Layer = frmSpatialAna.PageLayoutControl1.ActiveView.FocusMap.Layer(i)
       pLegendItem(i).NewColumn = False
       pLegendItem(i).Columns = 1'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
       pLegendItem(i).ShowHeading = False
       pLegendItem(i).ShowDescriptions = False
       pLegendItem(i).ShowLayerName = False
       pLegend.AddItem pLegendItem(i)
       
   Next

上述代码只能对每个pLegendItem进行分几列显示,能否对有的pLegendItem中的所有图例平均分配分列显示呢?或者说能否将所有的pLegendItem组合起来再分列呢?

啊，真的没人会啊！

这个问题难道真的不能实现吗？

没有哪位高手尝试过这个功能么？

哪位高手提醒一下阿!