Private Sub GetCornerExample()

' This example gets the corner data for any 3dFace objects.

     Dim ents As progeCAD.Entities

     Dim ent As Object

     Dim FaceCorner As Point

     Set ents = ActiveDocument.Entities

     For Each ent In ents

          Select Case ent.EntityType

               Case Icad3dFace

               Set FaceCorner = ent.GetCorner(3)

               MsgBox "The coordinates for the third corner are: " & Chr(13) & "x = " & FaceCorner.x & Chr(13) & "y = " & FaceCorner.y & Chr(13) & "z = " & FaceCorner.z

          End Select

     Next ent

End Sub