Vamos lá... aos exemplos! ;-)

oObjeto = CreateObject("Empty")
AddProperty(oObjeto,"Licenciado",CreateObject("Licenciado")
AddProperty(oObjeto,"Empresa",CreateObject("Empresa")
AddProperty(oObjeto,"Programa",CreateObject("Programa")

Define Class Licenciado As Session
    Nome = "Qualquer Um"
    CNPJ = "Qualquer Outro"
EndClass

Define Class Empresa As Session
    Nome = "Rodolfo"
    CNPJ = "111.11.11.1.1"
EndClass

Define Class Programa As Session
    Nome = "Programa"
    Versao = "1.0"
    DataExpiracao = {}
EndClass

Desta forma, teremos...

? oObjeto.Licenciado.Nome
? oObjeto.Licenciado.CNPJ
? oObjeto.Empresa.Nome
? oObjeto.Empresa.CNPJ
? oObjeto.Programa.Nome
? oObjeto.Programa.Versao
? oObjeto.Programa.DataExpiracao

Ou, seria melhor:

oObjLicenca = CreateObject("Licenca")
oObjEmpresa = CreateObject("Empresa")
oObjPrograma = CreateObject("Programa")

e então...

? oObjLicenca.Nome
? oObjLicenca.CNPJ
? oObjEmpresa.Nome
? oObjEmpresa.CNPJ
? oObjPrograma.Nome
? oObjPrograma.Versao
? oObjPrograma.DataExpiracao

... quem dá mais??? quem dá mais??? :-) hehehe!

ou ainda ...

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"
EndClass

Define Class Empresa As Session
    Nome = "Rodolfo"
    CNPJ = "111.11.11.1.1"
EndClass

Define Class Programa As Session
    Nome = "Programa"
    Versao = "1.0"
    DataExpiracao = {}
EndClass

Acho que a última opção é a mais "OBJETIFICADA" possível! ... ;-)

[]s