請幫我看一下我的代碼有甚麼問題.

[Hideal]

我在VB6,SP5中MDI窗體中用以下代碼想為菜單添加位圖,但卻菜單上卻沒有圖,和原來一樣,請問為甚麼啊?
代碼如下;
Option Explicit

Private Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private 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
Const MF_BYPOSITION = &H400&

Private Sub MDIForm_Load()
Dim mHandle As Long, lRet As Long, sHandle As Long
mHandle = GetMenu(hwnd)
sHandle = GetSubMenu(mHandle, 0)
lRet = SetMenuItemBitmaps(sHandle, 0, MF_BYPOSITION, Image1.Picture.Handle, Image1.Picture.Handle)
End Sub

[zyl910]

可能是：主窗体菜单被自窗体的覆盖了

[Hideal]

用來測試的程序只有一個MDI窗體,沒有子窗體的.

[litsnake1]

up