>By the way: I think the solution below is the best option... Any comments?
>
>

>oObj = CreateObject("Objeto")
>
>Define Class Objeto As Session
>    Licenciado = CreateObject("Licenciado")
>    Empresa = CreateObject("Empresa")
>    Programa = CreateObject("Programa")
>EndDefine
>
>Define Class Licenciado As Session
>    Nome = "Qualquer Um"
>    CNPJ = "Qualquer Outro"
>EndDefine
>
>Define Class Empresa As Session
>    Nome = "Rodolfo"
>    CNPJ = "111.11.11.1.1"
>EndDefine
>
>Define Class Programa As Session
>    Nome = "Programa"
>    Versao = "1.0"
>    DataExpiracao = {}
>EndDefine
>

Can someone tell me why this doesnt work?
?oobj.empresa.nome