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 
这是我写的,但地图上的点的轨迹怎么还在呢,有没有办法清除走过的痕迹呀,请高手解决一下! --------------------编程问答-------------------- 我这里有完整系统的代码，需要的话联系哦，QQ：44957919 --------------------编程问答-------------------- 这个功能很好实现的啊，你不能一直画点啊，你要移动点才可以实现你要达到的目的。

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