For Each Map (gb.map)

Dim hMap As Map
Dim anObject As Object
For Each anObject In hMap
  ...
Next