请教怎么在MAPX中画多个点（VB）

<P>代码：</P>
<P>Private Sub Command1_Click()<BR>Dim oLayer As MapXLib.Layer<BR>Dim oFtr As MapXLib.Feature<BR>Dim oPoints As MapXLib.Points<BR>Dim oPoint As MapXLib.Point<BR>Dim oDestPoints As New MapXLib.Points<BR>Dim oPoly As New MapXLib.Feature<BR>    Set oLayer = Map1.Layers(1)<BR>    oDestPoints.AddXY 0, -0.4<BR>    oDestPoints.Add oDestPoints(1)<BR>    oPoly.Attach Map1<BR>    oLayer.AddFeature oPoly<BR>    oDestPoints.AddXY 0, 0.4<BR>    oDestPoints.Add oDestPoints(2)<BR>    oPoly.Attach Map1<BR>    oLayer.AddFeature oPoly<BR>End Sub</P>
<P>这样只能画出一个点，刚开始学习，高手指教啊</P>