The following VB sample enumerates the elements on the surface:
Dim e As Variant For Each e In Surface1.Elements Debug.Print e.ID Next