For Each .Menu.Children (gb.gtk)

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