[求助]创建多边形对象

<DIV> </DIV>
<DIV>      下面是一个VBA程序，作用是构造一个多边形对象</DIV>
<DIV>Sub qq()</DIV>
<DIV>'产生一个环，向其中添加片段对象</DIV>
<DIV> Dim pPoint1 As IPoint                                <BR> Dim pPoint2 As IPoint<BR> Dim pPoint3 As IPoint</DIV>
<DIV><BR> Set pPoint1 = New Point<BR> pPoint1.PutCoords 100, 100<BR> Set pPoint2 = New Point<BR> pPoint2.PutCoords 120, 120<BR> Set pPoint3 = New Point<BR> pPoint3.PutCoords 4000, 5100<BR>  <BR> Dim pSegments As ISegmentCollection                  <BR> Dim pLine As ILine<BR> Dim pRing As IRing<BR> Set pSegements = New Ring<BR> Set pLine = New Line<BR>  <BR> pLine.PutCoords pPoint1, pPoint2<BR>pSegments.AddSegment pLine<BR>  <BR> Set pLine = New Line<BR> pLine.PutCoords pPoint2, pPoint3<BR> pSegments.AddSegment pLine<BR>  <BR> Set pRing = pSegments<BR> pRing.Close<BR>  </DIV>
<DIV>'使用环对象来构造多边形对象<BR> Dim pPolygon As IGeometryCollection<BR> Set Polygon = New Polygon<BR> pPolygon.AddGeometry pRing<BR>End Sub<BR>     当程序运行到红色字时，会出现“object variable or with block variable not set”的错误提示，我不知道怎么改，请各位大哥帮帮忙，我是在ARCGIS9.0下运行此程序的，谢谢了！！</DIV>

当程序运行到"pSegments.AddSegment pLine"时，会出现“object variable or with block variable not set”的错误提示，我不知道怎么修改，想请老师看下，谢谢！！