[求助]根据经纬度在地图上标点 遇到问题

<BR>
<P>我是新手，参考了网络上的VB代码，</P>
<P>  <BR>Dim X1 As Double<BR>Dim Y1 As Double<BR>Dim fNewSymbol As MapXLib.Feature<BR>Dim fNewSymbol1 As MapXLib.Feature<BR>Dim fMapSymbol As MapXLib.Feature</P>
<P><BR>Dim pt As New Point</P>
<P>X1 = 119.08747<BR>Y1 = 31.38271<BR>pt.Set X1, Y1</P>
<P><BR>With Map1.DefaultStyle<BR>.SymbolFont = "custom symbols"<BR>.SymbolType = 1<BR>.SymbolBitmapName = "TAXI1-32.bmp"<BR>.SymbolBitmapSize = 24<BR>.SymbolBitmapTransparent = True<BR>End With</P>
<P>If flag = 0 Then<BR>    Set fNewSymbol = Map1.FeatureFactory.CreateSymbol(pt, Map1.DefaultStyle)<BR>    Set fMapSymbol = lyrMylayer.AddFeature(fNewSymbol) <STRONG><FONT color=#f73809>//执行到这句，弹出“Runtime-error 91 object variable or with block variable not set”对话框，提示错误，烦请各位高手指点<BR></FONT></STRONG>    A = fMapSymbol.FeatureKey<BR>    flag = 1<BR>Else<BR>    lyrMylayer.DeleteFeature A<BR>    Set fNewSymbol = Map1.FeatureFactory.CreateSymbol(pt, Map1.DefaultStyle)<BR>    Set fMapSymbol = lyrMylayer.AddFeature(fNewSymbol)<BR>    A = fMapSymbol.FeatureKey<BR>End If</P>


<img src="images/post/smile/dvbbs/em12.gif" /><img src="images/post/smile/dvbbs/em12.gif" /><img src="images/post/smile/dvbbs/em12.gif" />