Как пробежать по всем меню (For each...)

[Pantalone]

Надо перебрать все менюшки кроме некоторых.

Пробую:

Код: Выделить всё

Dim mn As Control

For Each mn In Me.Controls
    Debug.Print mn.Name
Next mn

Выдает имена всех контролов, в том числе и меню. Хотелось бы именно по типу их как-то отсеить, а не по приставке в названии mnu. Мало ли что за контрол еще с mnu подвернется.
Но вот в библиотеке объектов описания Control нет, ни свойств ни методов, ничего.

[jangle]

Код: Выделить всё

Dim mn As Control

For Each mn In Me.Controls
If TypeOf mn Is Menu Then
   MsgBox mn.Name
End If
Next mn

[Pantalone]

спасибо

[Хакер]

Можно ещё юзать TypeName