DIM hMenuChildren AS .MenuChildren
DIM hMenu AS Menu

FOR EACH hMenu IN hMenuChildren
  ...
NEXT

Перечисляет всех наследников меню.