TTabs

 #INCLUDE "TOTVS.CH"
 
 MAIN FUNCTION testTabs()
    DEFINE DIALOG oDlg TITLE "Exemplo TTabs" FROM 180,180 TO 550,700 PIXEL
     
        // Cria a TTab
        oTTabs := TTabs():New(01,01,{'Aba01','Aba02','Aba03'},;
                                {||oPanel01:lVisibleControl:=(oTTabs:nOption==1)},;
                                oDlg,,CLR_HRED,,.T.,,260,184,)
         
        // Insere um painel na TTab
        oPanel01 := TPanel():New( 1,1,'',oTTabs,,,,,,100,100,,.T. )
         
        oBtn01  := TButton():New( 01,01,'TButton01',oPanel01,;
                                    {||oTTabs:SetOption(2)},;
                                     037, 012,,,.F.,.T.,.F.,,.F.,,,.F. )
                                         
    ACTIVATE DIALOG oDlg CENTERED
 RETURN