Duda Menu con imagenes by Leandro

[Abbet]

Buenas Leandro, este es el menu en cuestión:


Dentro de enviar tengo nada mas que un submenu.
El codigo que utilizo para aplicar el icono a esa opcion es:

Código: [Seleccionar]

.PutImageToVBMenu 4, 9, 0, 0
Saludos!

[LeandroA]

Hola Abbet si tenes razon hay algun error, despues lo reviso y lo corrijo.

Saludos.

[Abbet]

Mmm Leandro, tambien hay un error al visualizarlo en Windows 7, directamente no se ven los iconos.
He probado el ejemplo ya compilado que subiste y tambien falla en Windows 7, el form que los carga desde archivo, los otros van bien.

[LeandroA]

Al final estaba bien yo lo probe apurado y tambien pasaba mal los parametros, fijate imagen como puse el parametro



en cuanto a lo que me decis de windows 7 , comentame, es de 64bits?, es tanto en los ICO como en los PNG?, por las dudas fijate si App.Path devuelve ruta correcta, por ejemplo

        For i = 1 To 4
           debug.print App.Path & "\Iconos PNG\Icon" & i & ".PNG"
        Next
       
y

        For i = 1 To 4
           Debug.Print App.Path & "\Iconos ICO\Icon" & i & ".ICO"
        Next

yo lo probe en una maquina virtual y anda bien pero es el seven de 32bits
       
Espero tu respuesta, Saludos.

[Abbet]

Lo de Windows 7 ya lo solucione, se me olvidaron unos archivos de configuracion del programa en el instalador y no me di cuenta.
Sobre el icono, funciona el metodo que usado pero entonces, funciona asi siempre con todos los submenus?