For Each .SubCollection (gb.db)

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

Enumère tout les sous-objets inclus dans la collection.