IPolygon2::QueryExteriorRingsEx-QueryExteriorRings の回避方法

'http://resources.arcgis.com/en/help/arcobjects-java/concepts/engine/index.html#//00010000073v000000
 
'.NET では、ExteriorRingCount メソッドと QueryInteriorRingsEx メソッドは動作しない。
 
'IPolygon2.QueryInteriorRingsEx Method
'http://resources.arcgis.com/en/help/arcobjects-net/componenthelp/index.html#/QueryInteriorRingsEx_Method/002m000002ms000000/
 
'IPolygon2.QueryExteriorRingsEx Method
'http://resources.arcgis.com/en/help/arcobjects-net/componenthelp/index.html#//002m000002mr000000

 
Dim pPolygon As IPolygon4 = CType(pFeature.ShapeCopy, IPolygon4)
 
Dim pExteriorRings As IGeometryCollection = CType(pPolygon.ExteriorRingBa, IGeomlection)
Dim pExteriorRing As IRing
 
'Exterior Ring
For i As Integer = 0 To pExteriorRings.GeometryCount - 1
    pExteriorRing = CType(pExteriorRings.Geometry(i), IRing)
 
    Dim pInteriorRings As IGeometryCollection = CType(pPolygon.InteriorRigBag(pERing), IGeometryCollection)
    Dim pInteriorRing As IRing
 
    'Interior Ring
    For j As Integer = 0 To pInteriorRings.GeometryCount - 1
        pInteriorRing = CType(pInteriorRings.Geometry(j), IRing)
 
        System.Diagnostics.Debug.Print(pInteriorRing.IsExterior.ToString()
    Next
 
Next