There are two workarounds as given below:1) Using IPolycurve2::DensifyByAngle on a copy of the polygon. ' Construct new polygon dblOffset = 20 Set pConstructCurve = New Polygon Dim pPolycurve As IPolycurve Set pPolycurve = pPolygon pPolycurve.Densify -1, -1 pConstructCurve.ConstructOffset pPolycurve, dblOffset2) Export data into shapefile then put into same Personal Geodatabase file. Then try execute the same code with increasing the value of dblOffset (like 20,30 etc..)