DIM hWindowMenus AS .WindowMenus
DIM hMenu AS Menu

FOR EACH hMenu IN hWindowMenus
  ...
NEXT

Enumerates each menu included in a window.