For Each .SubCollection (gb.db)

Dim hSubCollection As .SubCollection
Dim anObject As Object
For Each anObject In hSubCollection
...
Next

Enumerates all sub-objects included in the collection.