For Each .Menu.Children (gb.qt4)

Dim hMenu As Menu
Dim hMenu2 As Menu
For Each hMenu2 In hMenu.Children
  ...
Next

Enumerates all children of a menu.