[求助]VB+MapX 已知两点如何画直线？先谢了！

呵呵，最好有代码，我是菜鸟。

<P>dim p1 as new point</P>
<P>dim p2 as new point</P>
<P>p1.set x1,y1</P>
<P>p2.set x2,y2</P>
<P>dim ptsLocus as new points</P>
<P>ptsLocus.Add p1</P>
<P>ptsLocus.add p2<BR>CreateLine Map1, Map1.Layers(2), ptsLocus</P>
<P>Public Sub CreateLine(map As map, lyr As MapXLib.Layer, pts As MapXLib.Points)<BR>   Dim fac As MapXLib.FeatureFactory<BR>   Set fac = map.FeatureFactory<BR>   Dim ftr As Feature<BR>   Dim style As New MapXLib.style<BR>   style.LineColor = RGB(255, 0, 0)<BR>   Set ftr = fac.CreateLine(pts, style)<BR>   lyr.AddFeature ftr<BR>   <BR>   Set fac = Nothing<BR>   Set ftr = Nothing<BR>   <BR>End Sub</P>

featurefactory这个对象.