这段代码怎么不能实现在菜单中加入图标呢?(XP下)但示例程序又可以{在线等待)

Question

form1中的内容:一个图片框,菜单
form1中的代码:
Private Sub form_load()
     
    ' 获得你的菜单的句柄
    hMenu = GetMenu(Form1.hwnd)
     
    ' 获得第一个子菜单的句柄
    hSubMenu = GetSubMenu(hMenu, 0)
         '加入图标,图标为16*16 pix 大小
     SetMenuItemBitmaps hMenu, 0, MF_BYPOSITION, Picture1.Picture, Picture1.Pictur    End Sub
Module1中的内容:
Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Declare Function SetMenuItemBitmaps Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, _
                                                  ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, _
                                                  ByVal hBitmapChecked As Long) As Long
       
    Public Const MF_BYPOSITION = &H4&
 请您给我找一下原因
   

Answer 1

//SetMenuItemBitmaps hMenu, 0, MF_BYPOSITION, Picture1.Picture, Picture1.Pictur   
这里操作的不应该是hMenu吧，应该是hSubMenu。

Answer 2

你这段代码 SetMenuItemBitmaps hMenu, 0, MF_BYPOSITION, Picture1.Picture, Picture1.Pictur    应该写为
把picture1改为image吧，我也试好几次，好像picture不行
 Call SetMenuItemBitmaps(hsubmenu, 0, MF_BYPOSITION, qq.Picture, qq.Picture)