Paco Garc铆a de CanalFive ha sido tan amable de donar su Clase TVistaMenu para FWH 11.11 
Gracias Paco!
Gracias Paco!
#include "fivewin.ch"
function main()
local oWnd
local oVmenu
local oItem
local oIcon
DEFINE ICON oIcon NAME "C5ICON"
DEFINE WINDOW oWnd TITLE "First test VistaMenu" ICON oIcon
聽 聽 oVMenu := TVistaMenu():New( 0,0, 100, 100, oWnd )
聽 聽 oVMenu:nColumns := 1
聽 聽 oVMenu:nType := 2
聽 聽 oItem := oVMenu:AddItem( "Sistema y mantenimiento ", ".\..\bitmaps\pngs\image1.png" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Empezar a trabajar con windows",,;
聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 聽 { | o | o := TWindow(), DestroyWindow( o:hWnd ), o:hWnd := GetDesktopWindow(), o:SaveToPng( "c:\desktop.png" ) } )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Hacer una copia de seguridad del equipo" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Item 1 Item 1" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "ItemItem2 ItemItem2" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "ItemItemItem3 ItemItemItem3" )
聽 聽 oItem := oVMenu:AddItem( "Seguridad", ".\..\bitmaps\pngs\image2.png" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Buscar actualizaciones" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Dejar pasar un programa a trav茅s de Firewall de Windows" )
聽 聽 oItem := oVMenu:AddItem( "Redes e Internet", ".\..\bitmaps\pngs\image3.png" )
聽 聽 oItem:lEnable := .f.
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Ver el estado y las tareas de red" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Configurar el uso compartido de archivos" )
聽 聽 oItem := oVMenu:AddItem( "Hardware y sonido", ".\..\bitmaps\pngs\image4.png" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Reproducir un CD u otros archivos multimedia autom谩ticamente" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Impresora" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Mouse" )
聽 聽 oItem := oVMenu:AddItem( "Programas", ".\..\bitmaps\pngs\image5.png" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Desinstalar un programa" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Cambiar programas de inicio" )
聽 聽 oItem := oVMenu:AddItem( "Equipo portatil", ".\..\bitmaps\pngs\image6.png" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Cambiar la configuraci贸n de la bateria" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Ajustar parametros de configuraci贸n de movilidad de uso frecuente" )
聽 聽 oItem := oVMenu:AddItem( "Cuentas de usuario", ".\..\bitmaps\pngs\image7.png" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Cambiar tipo de cuenta" )
聽 聽 oItem := oVMenu:AddItem( "Opciones adicionales", ".\..\bitmaps\pngs\image12.png" )
聽 聽 oItem := oVMenu:AddItem( "Apariencia y personalizaci贸n", ".\..\bitmaps\pngs\image8.png" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Cambiar fondo de escritorio" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Cambiar la combinaci贸n de colores" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Ajustar la resoluci贸n de pantalla" )
聽 聽 oItem := oVMenu:AddItem( "Reloj, idioma y regi贸n", ".\..\bitmaps\pngs\image9.png" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Cambiar teclados u otros m茅todos de entrada" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Cambiar el idioma para mostrar" )
聽 聽 oItem := oVMenu:AddItem( "Accesibilidad", ".\..\bitmaps\pngs\image10.png" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Permitir que Windows sugiera parametros de configuraci贸n" )
聽 聽 聽 聽 聽 聽 聽oItem:AddItem( "Optimizar la presentaci贸n visual" )
聽 聽 oWnd:oClient := oVMenu
ACTIVATE WINDOW oWnd
return 0
