.子程序 菜单项加图标, , , 图片只能为位图,如果图片和模块不在同一目录，请用完整路径

.参数 子菜单句柄, 整数型, , 菜单所在窗口的名称，不是窗口的标题

.参数 图标路径, 文本型, 可空, 未复选时的图片路径名称，如果不用，请不要填

.参数 菜单条目位置, 整数型, , 第一个条目的编号为0

.局部变量 hMenu, 整数型

.局部变量 hSubMenu, 整数型

.局部变量 hID, 整数型

.局部变量 hbitmapn, 整数型

.局部变量 hbitmapf, 整数型

.局部变量 MenuSize, 整数型

MenuSize ＝ GetSystemMetrics (72)

hbitmapn ＝ LoadImage (0, 图标路径, 0, GetSystemMetrics (71), MenuSize, 16)

hbitmapf ＝ 0

hID ＝ GetMenuItemID (子菜单句柄, 菜单条目位置)

SetMenuItemBitmaps (子菜单句柄, hID, 4, hbitmapn, hbitmapf)