Case esriGeometryType.esriGeometryPolygon Dim poly As IPolygon = New Polygon Dim pointColl As IPointCollection = CType(poly, IPointCollection) pointColl.AddPoint(lowLeft) pointColl.AddPoint(lowRight) pointColl.AddPoint(upRight) pointColl.AddPoint(upLeft) Dim maware As IMAware = CType(poly, IMAware) maware.MAware = True poly.Close() Dim topoOp2 As ITopologicalOperator2 = CType(pointColl, ITopologicalOperator2) If topoOp2.IsKnownSimple = True Then topoOp2.Simplify() Dim polyExt As IFeature = CreateFeature(featClass, poly) End If