怎么从IRing环中获得每个顶点？？谢谢！

<P>                Set pPointCollection = pCurrentExteriorRing‘这句没有错误！<BR>                RingPointcount = pPointCollection.PointCount<BR>                If RingPointcount > 0 Then<BR>                     For j = 0 To RingPointcount - 1<BR>                        pPointCollection.QueryPoint j, pCurrentPoint  </P>
<P>                          上面这句话提示错误:Automation error Invalid pointer<BR>                    Next j<BR>                End If<BR>           请问怎么从IRing环中获得每个顶点？？谢谢！</P>