Icons in menu
Posted on 1999-10-10
Hey guys I am trying very hard to put icons in my menus but it just isn't working. My app puts an icon in the System tray and has a popup menu come out of it when it's clicked. I have this code I got from another question but it dosn't seem to work.
Dim hTopMenu&, hSubMenu&, menuID&, rc&
hTopMenu = GetMenu(Me.hwnd)
hSubMenu = GetSubMenu(hTopMenu, 0)
menuID = GetMenuItemID(hSubMenu, 0)
rc = SetMenuItemBitmaps (hTopMenu, menuID, MF_BYCOMMAND, imgInfo.Picture, imgInfo.Picture)
I am running windows 95 with IE 5.0 and VB 6.0.
Thanks for any and all help.