// Create a list to hold all the created polygons, 
System.Collections.Generic.List<Polygon> singlePrts = new System.Collections.Generic.List<Polygon>(pgon.RingCount);

// Use RingCount and GetRing to iterate through every ring except the first ring in the polygon.
for (int i = 1; i < pgon.RingCount; i++)
{
    // Create a new Polygon from the ring, and add to the list.
    // Note - simplifying will correct turn any inner rings (holes) into outer rings (boundaries).
    Polygon newPoly = GeometryOperations.Simplify(new Polygon(pgon.GetRing(i)));
    singlePrts.Add(newPoly);
}

// Remove the subsequent rings from the original Polygon and add the original Polygon to the list.
while (pgon.RingCount > 1)
{
    pgon.RemoveRing(1);
}
singlePrts.Add(pgon);

' Create a list to hold all the created Polygons, 
Dim singlePrts As System.Collections.Generic.List(Of Polygon) = New System.Collections.Generic.List(Of Polygon)(poly.RingCount)

' Use RingCount and GetRing to iterate through every ring except the first ring in the polygon.
For i As Integer = 1 To poly.RingCount - 1
    ' Create a new Polygon from the ring, and add to the list.
    ' Note - simplifying will correct turn any inner rings (holes) into outer rings (boundaries).
    Dim newPoly As Polygon = GeometryOperations.Simplify(New Polygon(poly.GetRing(i)))
    singlePrts.Add(newPoly)
Next i

' Remove the subsequent rings from the original Polygon and add the original Polygon to the list.
While poly.RingCount > 1
    poly.RemoveRing(1)
End While
singlePrts.Add(poly)