legend控件问题

<P>请问vb中legend控件怎么用<BR>我想通过单击一个图层,用按钮把它删除.<BR>我写了个,但是实现不了,只可以从一个删起,而不可以选哪个删哪个<BR>帮我看看<BR>Private Sub legend1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)<BR>legend1.getActiveLayer<BR>End Sub</P>
<P>Private Sub Command2_Click()<BR>Dim a As Integer<BR>If legend1.Active(a) = True Then<BR>Map1.Layers.Remove (a)<BR>legend1.setMapSource Map1<BR>legend1.LoadLegend True<BR>Map1.Refresh<BR>End If<BR>End Sub <BR></P>

<P>可以啊！我试过了！</P>
<P>不过你的这个事件没任何作用</P>
<P>Private Sub legend1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)<BR>legend1.getActiveLayer<BR>End Sub</P>
<P>操作的过程应该是点击Legend1上某个图层，然后点击Command2</P>

legend 的getactivelayer函数有点问题,有时侯不能得到正确的图层,你设一个全局变量,把legend1_mousedown()中的index赋给它使用