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.