Ca ca marche mais l'image devient un carré noir

J'ai Fichier-> {Menu1, Menu2}
ainsi qu'une picturebox de 13x13 ac une image bmp RGB 24 bits dedans (même en 16 couleurs ca veut pas)

hMenu = GetMenu(Me.hwnd)

hSubMenu = GetSubMenu(hMenu, 0)

hBitMap = CreateCompatibleBitmap(Picture1.hdc, 13, 13)

SetMenuItemBitmaps hSubMenu, 0, MF_BYPOSITION, hBitmap, hBitMap