Private Sub Command1_Click()

'Hämtar menuhandle för din applikation
hMenu& = GetMenu(Form1.hwnd)

' Hämtar handle på den första submenyn (Hello)
hSubMenu& = GetSubMenu(hMenu&, 0)

' Hämtar menuId på den första raden (Bitmap)
hID& = GetMenuItemID(hSubMenu&, 0)

' Addera bitmappen
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, _
Picture1.Picture, Picture1.Picture

' Du kan addera två bilder till ett menuentry
' En för "checked" och en för "unchecked"

End Sub