Error en insertar imágenes en menú VFP6

Y a todo esto... cual es el error especifico???

=Este es el codigo que estoy utilizando que me envio un compañero de
portalfox...

y no me funciona quisiera saber que error estoy cometiendo.

les agradezco su ayuda

set sysmenu to && quito el menu de VFP

set default "c:\farmacia" && ruta de inicio

*cargo mi menu
do "menu\mnuPrincipal.mpr"

*ahora si implemento este codigo
** Insertar Imágenes en el Menú de VFP 6.0

DECLARE INTEGER FindWindow IN win32api STRING,STRING
DECLARE INTEGER GetMenu IN win32api INTEGER
DECLARE INTEGER GetSubMenu IN win32api INTEGER,INTEGER
DECLARE INTEGER LoadImage IN win32api
INTEGER,STRING,INTEGER,INTEGER,INTEGER,INTEGER
DECLARE INTEGER SetMenuItemBitmaps IN win32api
INTEGER,INTEGER,INTEGER,INTEGER,INTEGER
DECLARE INTEGER GetMenuItemID IN win32api INTEGER,INTEGER
DECLARE INTEGER ModifyMenu IN win32api
INTEGER,INTEGER,INTEGER,INTEGER,STRING

* Especifico el Caption del Form donde se encuentra el Menú,
* en el caso de ser un menú definido por el usuario.
HWND = FindWindow(0,_SCREEN.CAPTION)

* Modifico el menú principal de VFP.
** Menú y Submenú a modificar, tomaremos como ejemplo el Menú "Archivo"
lnHandleMenu = GetMenu(HWND)
lnHandleSubMenu = GetSubMenu(lnHandleMenu,0)

* El segundo parámetro indica el SubMenú a modificar, en este caso:
* 0 = Archivo
* 1 = Edición
* 2 = Ver
* 3 = Formato
* 4 = Herramientas
* 5 = Programa
* 6 = Ventana
* 7 = Ayuda
** Path de las Imágenes. A modo de ejemplo se incluyen los de VFP.

lcPathImagen1 = "C:\farmacia\imgs\user.ico"
lcPathImagen2 = "C:\farmacia\imgs\close.ico"

** Carga de las Imagenes.

lnImagen1 = LoadImage(0,lcPathImagen1 ,0,13,13,16)
lnImagen2 = LoadImage(0,lcPathImagen2 ,0,13,13,16)

* Los 3 últimos parametros indican: ancho, alto y color de la imagen.
** ID del Menu.

lnMenuID1 = GetMenuItemID(lnHandleSubMenu, 0)
lnMenuID2 = GetMenuItemID(lnHandleSubMenu, 1)

* El segundo parámetro representa la opción dentro del SubMenú:

* 0 = Nuevo
* 1 = Abrir
* 4 = Guardar
* 14 = Imprimir

** Definición del Menu con la Imagen.
SetMenuItemBitmaps(lnHandleSubMenu, lnMenuID1, 0, lnImagen1, lnImagen1)
SetMenuItemBitmaps(lnHandleSubMenu, lnMenuID2, 0, lnImagen2, lnImagen2)

** Modificación del Menu.
ModifyMenu(lnHandleMenu, lnMenuID1, 0, lnMenuID1, "\<Usuarios CTR+U")
ModifyMenu(lnHandleMenu, lnMenuID2, 0, lnMenuID2, "\<Salir... CTR+S")
CLEAR DLLS

read events


espero respuesta de posibles soluciones a mi error, les agradezco o todos
los compañeros del foro que me ayuden y a los demás tambien porque se que
en otra ocasión padrán ayudarme, solo quiero saber que estoy haciendo mal
o que me falta, porque el codigo no me coloca los iconos que quiero
colocar en el menu...

Gracias.




Edgar Zambrano
Programador VFP6

Soledad - Atlántico - Colombia.

ž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º€ø,žž,ø€º°`°º
Espartaco Palma Martínez
SysOp PortalFox.com
email:mexicoSINSPAM[Arroba]portalfox.com

-
PortalFox :: Nada corre como un zorr
http://www.portalfox.co

PortalFox - NNTP Forum Gatewa