vb+mapobject在地图上画点，如何设置各个点不同的颜色

[baidu_18348471]

想在地图上画圆点，已经画上了，方法如下：
Set p = New MapObjects2.Point
Map1.TrackingLayer.Symbol(0).Size = 6
Map1.TrackingLayer.Symbol(0).color = moRed
Map1.TrackingLayer.Symbol(0).Outline = True
p.x = 113.069 ’赋不同的经纬度，就可以在地图的相应位置画圆点
p.y = 23.6345 ‘
Map1.TrackingLayer.AddEvent p, 0


按照上述代码，我所画出来的圆点，肯定都是moRed颜色。问题是，如果我要改变其中一个圆点的颜色为moGreen，其它所有点也跟着变成moGreen了，怎么才能设定某点的颜色而其它点的颜色不会跟着改变呢？