Динамическое меню

[Павел]

Потребовалось динамическое меню в MDI форме, написал через Add вот так:

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

Private WithEvents NewMenuItem As VB.Menu

Private Sub NewMenuItem_Click()
  MsgBox "Клик на новом меню"
End Sub

...
  Set NewMenuItem = Controls.Add("VB.Menu", "NewMenuItem")
  NewMenuItem.Visible = True
  NewMenuItem.Caption = "Моё меню"
...

При запуске на Controls.Add бейсик выдаёт ошибку 270 - 'Menu' is not valid control type
Кнопки, чекбоксы и прочие контролы добавляются аналогичным кодом "на ура", в чём тут дело? Можно ли вообще динамически добавлять элементы меню?

[GSerg]

А як же

VBStreets\Наши проекты\PopupMenu 2

[Павел]

Круто! Буду пробовать, спасибо.