GetSubMenu API function

Hi,

I created a menu on design time and when I use the API function GetSubMenu like this:
mSub = GetSubMenu(GetMenu(Me.hwnd), 0)
I get 0 in mSub. What could be the reason? Does it have anything to do with the fact that I use this function in a MDI child form?

Thanks, Lior

Private Sub GraMen()

On Error Resume Next

Dim lngMenu As Long
Dim lngMenuItemId As Long
Dim lngRet As Long
Dim lngSubMenu As Long

lngMenu = GetMenu(Me.hWnd)
lngSubMenu = GetSubMenu(lngMenu, 0)
lngMenuItemId = GetMenuItemID(lngSubMenu, 3)
lngRet = SetMenuItemBitmaps(lngMenu, lngMenuItemId, MF_BITMAP, Picture2.Picture, Picture2.Picture)

End Sub