Power Builder - Menu con Iconos

****************************************************************************************************
UN PEKEÑO PROBLEMA CON MI MENU K SE ENCUENTRA EN MDI
****************************************************************************************************

RESULTA Q' TENGO MI MENU CON ICONOS, Y CUANDO EJECUTO UN OPENSTEED
SE BORRAN
E INTENTANDO JUGANDO CON HERENCIAS PERO = SE BORRAN SI ALGIEN ENCUENTRA LA SOLUCION SE LA AGRADESERIA

AQUI LES ENTREGO EL CODIGO Y SI TIENEN UNO MEJOR ENTONSES POSTEENLO PLS
=^_^=

GLOBAL DECLARE VARIABLE

FUNCTION ulong LoadImageA(ulong hintance, string filename,uint utype,int x,int y,uint fload) LIBRARY "USER32.DLL" alias for "LoadImageA;Ansi"
FUNCTION boolean SetMenuItemBitmaps(ulong hmenu,uint upos,uint flags,ulong handle_bm1,ulong handle_bm2) LIBRARY "USER32.DLL"
FUNCTION int GetSystemMetrics( int nIndex ) LIBRARY "USER32.DLL"
FUNCTION ulong GetMenuItemID(ulong hMenu,uint uItem) LIBRARY "USER32.DLL"
FUNCTION int GetSubMenu(ulong hMenu,int pos) LIBRARY "USER32.DLL"
FUNCTION ulong GetMenu(ulong hWindow) LIBRARY "USER32.DLL"
FUNCTION boolean ModifyMenu(ulong hMnu, ulong uPosition, ulong uFlags, ulong uIDNewItem, long lpNewI) alias for ModifyMenuA LIBRARY "USER32.DLL"

EN EL EVENTO OPEN

Long ll_MainHandle
long ll_SubMenuHandle
integer li_MenuItemID
long ll_X
long ll_Y

//imagenes
long ll_BitmapHandleA
long ll_BitmapHandleB

// Win32 contants
Integer IMAGE_BITMAP = 0
Integer LR_LOADFROMFILE = 16
Integer SM_CXMENUCHECK = 71
Integer SM_CYMENUCHECK = 72
Integer MF_BITMAP = 4
Integer MF_BYCOMMAND = 0
Integer MF_BYPOSITION = 1024

// asigna una varible al menú
ll_MainHandle = GetMenu(Handle(this))
ll_SubMenuHandle = GetSubMenu(ll_MainHandle,0)

ll_x =15 //GetSystemMetrics(SM_CXMENUCHECK)
ll_y = 14//GetSystemMetrics(SM_CYMENUCHECK)

// Cargue las imágenes usando las dimensiones para el estado comprobado de las imagenes
ll_BitmapHandleA = LoadImageA(0,'recurses\grafic\icon\NEW.BMP', IMAGE_BITMAP,ll_x,ll_y,LR_LOADFROMFILE)
ll_BitmapHandleB = LoadImageA(0,'recurses\grafic\icon\open.bmp',IMAGE_BITMAP,ll_x,ll_y,LR_LOADFROMFILE)
ll_BitmapHandleC = LoadImageA(0,'recurses\grafic\icon\print.bmp',IMAGE_BITMAP,ll_x,ll_y,LR_LOADFROMFILE)

SetMenuItemBitmaps(ll_SubMenuHandle,0,MF_BYPOSITION,ll_BitmapHandleA,ll_BitmapHandleA)
SetMenuItemBitmaps(ll_SubMenuHandle,1,MF_BYPOSITION,ll_BitmapHandleB,ll_BitmapHandleB)

Hola aca te dejo unos enlace:

Bitmaps en Menu
http://www.onkenhout.speedlinq.nl/pbtip006.html

Coolmenu
http://www.onkenhout.speedlinq.nl/coolmenu.html

Yo uso el Coolmenu en PowerBuilder 9.0 y todo va muy bien.

Saludos
Lima - Perú