mapx 的GPS应用

我想在mapx中画一个点,这个点的位置根据指定的经纬度移动,能解决的话还有分呀啊! 
Private Sub Form_Load() 
x = 104.123 
y = 28.211 
Set GPSLayer = Map1.Layers.CreateLayer("GPSLayer") 
Set Map1.Layers.AnimationLayer = Map1.Layers("GPSLayer") 
End Sub 

Private Sub Timer1_Timer() 
reg.Attach Map1 
reg.Type = miFeatureTypeSymbol 
reg.Style = Map1.DefaultStyle 
reg.Point.Set x, y 
Set f = Map1.Layers("GPSLayer").AddFeature(reg) 
x = x + 0.09 
y = y + 0.05 
reg.Point.Set x, y 
Map1.Layers("GPSLayer").Refresh 
End Sub 
这是我写的,但地图上的点的轨迹怎么还在呢,有没有办法清除走过的痕迹呀,请高手解决一下! --------------------编程问答-------------------- 你可以删除那个层后，再进行一次标注。每次标注前，清除以前的。需要轨迹的话，链接以前的点，做一个虚线即可。

补充：企业软件 ,  地理信息系统