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.