在VB6.0中怎样添加弹出式菜单的图标？

我做了个程序，想要在窗口中点右键弹出菜单，我做了16*16的bmp图形文件，在网上我找了添加菜单的图标的代码，而且成功了。但我不想要窗体的主菜单，我只想要一个弹出式菜单，且它应该带图标。
当我将主菜单的Visible属性设为false时，菜单可以弹出，但图标却没了，当设为true时，图标又出现了。请问怎么解决？
附加相关代码
Dim i As Integer
hMenu = GetMenu(Me.hwnd)
hSubMenu1 = GetSubMenu(hMenu, 0) '取得第一项菜单的子菜单句柄
MsgBox Str$(hSubMenu1), vbCritical, "!"
For i = 1 To 17
SetMenuItemBitmaps hSubMenu1, i - 1, MF_BITMAP, imageList1.ListImages(i).Picture, ImageList1.ListImages(i).Picture
Next i
StatusBar1.Style = sbrSimple
If DirectXflag Then
Option1.Enabled = True
Else
Option1.Enabled = False
Option2.Value = True
End If
status.画笔.颜色 = 黑色
'menu.Checked = False
menu.Visible = False

在VB6.0中怎样添加弹出式菜单的图标？ 在VB6.0中如何在工具箱中添加多媒体控件MMControl？ 请问VB6.0中 添加的表格控件(MSHFlexgrid)在哪呀?找不到. vb6中如何添加声音 在WinXP中，VB6.0中怎样实现用命令按钮往指定邮箱发邮件？ 在VB6.0中如何实现超级链接？ 在VB6.0中插入音乐 在dreamweaver8.0里面弹出式按钮怎麼做? 什么是线程，线程和进程有什么区别？怎样在VB6.0中使用多线程? 请问在VB6.0中，怎样读写和生成.ini配置文件？