DIM hMenuChildren AS .MenuChildren
DIM hMenu AS Menu

FOR EACH hMenu IN hMenuChildren
  ...
NEXT

Enumerates all children of a menu.