vb 如何建快捷图形菜单？

[ljp_hao]

我的程序只有一个快捷菜单，设计时主菜单不可见，快捷菜单项前就不显示图形了，若主菜单可见，快捷菜单会显示图形，问题是我不想主菜单可见。。。
　　　我用的是
　　hMenu& = GetMenu(Form1.hwnd)
hSubMenu& = GetSubMenu(hMenu&, 0)
hID& = GetMenuItemID(hSubMenu&, 0)
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Pic1, Pic1

hID& = GetMenuItemID(hSubMenu&, 1)
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Pic2, Pic2

hID& = GetMenuItemID(hSubMenu&, 2)
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Pic3, Pic3

hID& = GetMenuItemID(hSubMenu&, 3)
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Pic4, Pic4