图层打点后再次刷新出现的问题（VB+MO）

<P>要对两组数据打点并用不同颜色进行对比</P>
<P>加点代码：</P>
<P>Public Sub addpt()
  Map1.TrackingLayer.AddEvent pt, 0
        mopoints.Add pt
       With Map1.TrackingLayer.Symbol(0)
         If Option1.Value = True Then
          .Color = moRed
          .Style = 0
         Else
           .Color = moBlue
           .Style = 2
         End If
           .size = 3
           .Outline = False
      End With
End Sub</P>
<P>打完后发现，只要地图刷新一次（放大或移动等），颜色就自动变为同一种（后打点的颜色），请教该如何处理？~</P>

<P>你使用了一个symbol当然这样，应该是用两个symbol,分别定义不同的颜色风格，</P><P>就可以了。</P>

<P>应该定义两个symbol</P>