两种方法在VB+MAPX中在指定坐标处添加符号

<P>第一种方法</P>
<P>Private Sub Command1_Click()<BR>Dim X  As Double, Y As Double<BR> X = Text1.Text<BR> Y = Text2.Text<BR> Map1.Annotations.addsymbol X, Y<BR>End Sub</P>
<P>第二种方法：</P>
<P>  Private Sub Command1_Click()<BR>    Dim C_X As Double, C_Y As Double<BR>    Dim FeaFac As MapXLib.FeatureFactory<BR>    Dim Fea As New MapXLib.Feature<BR>    Dim Pts As New MapXLib.Points, Pt As New MapXLib.Point<BR>    <BR>            C_XString = Text1.Text<BR>            C_YString = Text2.Text<BR>     <BR>            C_X = Val(C_XString)<BR>            C_Y = Val(C_YString)<BR>            Fea.Attach form1.Map1<BR>            Fea.Type = miFeatureTypeSymbol<BR>            Fea.Style = form1.Map1.DefaultStyle<BR>            Fea.Point.Set C_X, C_Y<BR>           form1.Map1.Layers(1).AddFeature Fea<BR>            form1.Map1.Refresh</P>
<P> end sub   </P>
<P>  这个代码是用打印方法上去的后我无法再用Map1.Annotations.RemoveAll删除了 连地图也改变了 。不知道是怎么回事？朋友们指点一下！</P>