Id like to add some icons to the application menu (like MS Word, VB, etc)

Ive tried to use 2 different methods

1)
Declare Function ModifyMenu Lib "user32" Alias     "ModifyMenuA" _
(ByVal hMenu As Long, ByVal nPosition As Long, _
     ByVal wFlags As Long, ByVal wIDNewItem As Long, _
     ByVal lpString As Long) As Long

call ModifyMenu (hSubMenu, 1 MF_BITMAP or MF_BYPOSITION, 1, hImage)

.
This function puts icon in menu caption place instead putting picture to the
left of text

2)

 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

  ..

call SetMenuItemBitmaps ( hMenu1, MF_BITMAP,             hImage,  hImage

.

This function indeed puts image to the left of the text, but the picture
looks very strange (If  I select this menu Item, picture changes color also,
etc)

Are there any other solutions?

Sincerely ,