关于supermap+vb.net点移动问题

<P>高手帮忙： Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick<BR>        Timer1.Interval = 500<BR>        Dim GeoLine1 As New SuperMapLib.soGeoLine<BR>        Dim points As New SuperMapLib.soPoints<BR>        Dim syl As New SuperMapLib.soStyle<BR>        Dim geopoint As New SuperMapLib.soGeoPoint<BR>        GeoLine1 = ReasultPath.ResampleEquidistantly(ReasultPath.Length / 40)<BR>                             points = GeoLine1.GetPartAt(1)<BR>              If Not points Is Nothing Then<BR>            If points.Count >= PointNum Then<BR>                geopoint.x = points.Item(PointNum).x<BR>                geopoint.y = points.Item(PointNum).y<BR>                With syl<BR>                    .PenColor = System.Convert.ToUInt32(RGB(0, 35, 77))<BR>                    .SymbolSize = 96<BR>                    .SymbolStyle = 1<BR>                End With<BR>                Form1.DefInstence.SuperMap1.TrackingLayer.AddEvent(geopoint, syl, "")       '增加点实例<BR>                Form1.DefInstence.SuperMap1.TrackingLayer.Refresh()                       '刷新<BR>                PointNum = PointNum + 1<BR>            Else<BR>                Timer1.Enabled = False<BR>            End If<BR>        End If<BR>    End Sub</P>
<P>我写了上面代码：其中ReasultPath是生成的最短路径（soGeoLineM对象）但运行就出现”对象未实例话“ 其中是这句话有问题 </P>
<P>GeoLine1 = ReasultPath.ResampleEquidistantly(ReasultPath.Length / 40) 请问高手们如何来改正啊<BR></P>