For Each .Window.Menus (gb.qt4)

Dim hWindow As Window
Dim hMenu As Menu
For Each hMenu In hWindow.Menus
  ...
Next

Enumerates each menu included in a window.