<P>看一下帮助文件，动态图层的内容可以实现</P><img src="images/post/smile/dvbbs/em01.gif" />

<P>楼主，看不懂啊</P><P>能否加些注释？</P>

请大人们看看这段代码，这是在地图中显示汽车的代码：（没问题）
Private Sub Form_Load()
car
End Sub
<P>Private Sub car()
Dim G_CarLayer As MapXLib.Layer
Dim fMapSymbol As MapXLib.Feature
dxpos = Map1.CenterX
dypos = Map1.CenterY
fNewSymbol.Attach Map1
Set G_CarLayer = Map1.Layers.CreateLayer("Cars", , 1)
Set Map1.Layers.AnimationLayer = G_CarLayer
With Map1.DefaultStyle
.SymbolFont = "custom symbols"
.SymbolType = 1
.SymbolBitmapName = "TAXI1-32.BMP"
.SymbolBitmapSize = 24
.SymbolBitmapTransparent = True
End With
fNewSymbol.Type = miFeatureTypeSymbol
fNewSymbol.Style = Map1.DefaultStyle
fNewSymbol.Point.Set dxpos, dypos
Set fMapSymbol = G_CarLayer.AddFeature(fNewSymbol)
End Sub</P><P>
以下是通过按钮实现汽车纵向移动的代码（有问题），请达人看看哪有问题
Private Sub Command8_Click()
dypos = dypos + 0.001
fNewSymbol.Point.Set dxpos, dypos
Map1.Layers(1).Refresh
End Sub</P>

不能沉啊，急救啊！

恳求达人不吝赐教

<P>跟楼主一样的问题</P><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />