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