CheckFill
From scripting
Function CheckFill(BoundaryObj As Variant) As Boolean On Error GoTo NNN Dim CF As HybridShapeFill Set CF = MyHSFactory.AddNewFill() CF.AddBound BoundaryObj MyPart.UpdateObject CF CheckFill = True Exit Function NNN: CheckFill = False End Function