Вопрос про Popupmenu

[Zubik]

Нашел примеры в форуме, но не смог разобраться.
Мне нужно создать динамическое меню, чтобы при щелчке возникало попап меню с пунктом, а этот пункт раскрывался в под меню.

Пробую так:
hMenu = CreatePopupMenu()
hSubMenu = CreatePopupMenu()

InsertMenu hMenu, 1, MF_STRING Or MF_BYPOSITION Or MF_POPUP, hSubMenu, "Test"

AppendMenu hSubMenu, MF_STRING, ByVal 0&, "test2"

Подскажите, в чем ошибка

[Zubik]

Разобрался:

Не объявил константу
Private Const MF_POPUP As Long = &H10&

[Zubik]

Слушайте, вот какой вопрос:

В VB создал попап меню. Можно ли к его пункту прилепить подменю, созданное кодом?

[lister]

Посмотри вот этот пример:

http://bbs.vbstreets.ru/download.php?id=1052

[Zubik]

В этом примере все меню диинамические. Это не то.
А если попытаться разобраться в данном коде, боюсь знаний не хватит