[求助]如何在legend控件上实现手动修改图层颜色

       使用VB+MO，如何实现：用户加载图层以后可以手动修改图层的颜色？legend控件有没有这方面的功能？

<P>双击legend1控件即可</P>
<P>Private Sub legend1_LayerDblClick(Index As Integer)            </P>
<P>Dim sym As MapObjects2.Symbol</P>
<P>CommonDialog1.ShowColor </P>
<P> Set sym = Map1.Layers.Item(Index).Symbol </P>
<P>sym.Color = CommonDialog1.Color<BR>legend1.LoadLegend True<BR>  Map1.Refresh<BR>  Map2.Refresh   '鹰眼窗口颜色也一起改</P>
<P>End Sub</P>