[求助]mapx+vb设置线段的样式问题（不同的线段不同的颜色）

<P>先上程序：<BR>Dim lyr As MapXLib.Layer<BR>Dim fac As MapXLib.FeatureFactory<BR>Dim TrackFtr As MapXLib.Feature<BR>Dim ftr As MapXLib.Feature<BR>Dim Style As MapXLib.Style</P>
<P>Set lyr = Map1.Layers.CreateLayer("tmpTrackLayer") '创建轨迹图层<BR>Set Map1.Layers.AnimationLayer = lyr '将轨迹图层设为动态图层<BR>Set lyr = Map1.Layers.Item("tmpTrackLayer") '通过名称获取图层</P>

<P>'设置点的样式<BR>lyr.Style.SymbolCharacter = 164<BR>lyr.Style.SymbolFont.Size = 10<BR>lyr.Style.SymbolFontColor = RGB(65, 105, 225)</P>
<P>Set TrackFtr = Map1.FeatureFactory.CreateSymbol(p1) '创建点图元</P>
<P><BR>lyr.AddFeature TrackFtr '将点图元添加到轨迹图层<BR>Set TrackFtr = Nothing</P>
<P>If W > 2 Then</P>
<P>'设置线的样式<BR><FONT color=#e66b1a>ftr.Style.LineStyle = 59<BR>ftr.Style.LineColor = miColorRed<BR>ftr.Style.LineWidth = 3</FONT></P>
<P>Else</P>
<P>'设置线的样式<BR><FONT color=#ee9611>ftr.Style.LineStyle = 59<BR>ftr.CreateLine.Style.LineColor = miColorGreen<BR>ftr.CreateLine.Style.LineWidth = 3</FONT></P>
<P>End If</P>
<P><BR>   <BR>Set fac = Map1.FeatureFactory<BR>Set ftr = fac.CreateLine(ptsLocus, Map1.DefaultStyle)</P>

<P>lyr.OverrideStyle = True<BR>lyr.AddFeature ftr</P>
<P><BR>Set fac = Nothing<BR>Set ftr = Nothing<BR>Map1.Layers.Item("tmpTrackLayer").Refresh</P>
<P><BR>调试时候的错误是    对象变量或with块变量未设置  是设置线的样式时候的错误<BR>问题是ftr没有定义 但是下面有set ftr 语句<BR>按照逻辑关系 肯定是先设置关系  再画线<BR>这样需要一个对ftr的定义 请各位帮帮忙 怎么解决啊 </P>