For Each .MediaContainer.Children (gb.media)

Dim hMediaContainer As MediaContainer
Dim hMediaControl As MediaControl
For Each hMediaControl In hMediaContainer.Children
  ...
Next