#include "TOTVS.CH"User Function TMenuBar() DEFINE DIALOG oDlg TITLE "Exemplo TMenuBar" FROM 180,180 TO 550,700 PIXEL // Monta um Menu Suspenso oTMenuBar := TMenuBar():New(oDlg) oTMenu1 := TMenu():New(0,0,0,0,.T.,,oDlg) oTMenu2 := TMenu():New(0,0,0,0,.T.,,oDlg) oTMenuBar:AddItem('Arquivo' , oTMenu1, .T.) oTMenuBar:AddItem('Relatorio', oTMenu2, .T.) // Cria Itens do Menu oTMenuItem := TMenuItem():New(oDlg,'TMenuItem 01',,,,; {||Alert('TMenuItem 01')},,'AVGLBPAR1',,,,,,,.T.) oTMenu1:Add(oTMenuItem) oTMenu2:Add(oTMenuItem) oTMenuItem := TMenuItem():New(oDlg,'TMenuItem 02',,,,; {||Alert('TMenuItem 02')},,,,,,,,,.T.) oTMenu1:Add(oTMenuItem) oTMenu2:Add(oTMenuItem) ACTIVATE DIALOG oDlg CENTERED Return