Private Sub FlagsExample()
'This example returns the Flags property for any 3dFace objects.
Dim ents As IntelliCAD.Entities
Dim ent As Object
Dim FaceCorner As Point
Set ents = ActiveDocument.Entities
For Each ent In ents
Select Case ent.EntityType
Case Icad3dFace
MsgBox "The Flags property for this 3dFace is: " & ent.Flags
End Select
Next ent
End Sub