DEFINE CLASS classname AS Session OLEPUBLIC MinhaProp = [Valor Padrao] && propriedade que eu quero tornar somente leitura. HIDDEN FUNCTION MinhaProp_access This.MinhaProp = [Valor Padrao] && sempre retornará o valor padrão. RETURN This.MinhaProp ENDFUNC HIDDEN FUNCTION MinhaProp_assign LPARAMETERS lcNovoValor && despresar o lcNovovalor assim sempre que se tentar mudar o valor da && propriedade, ela não aceitará e terá sempre o valor padrão This.MinhaProp = [Valor Padrao] ENDFUNC ENDDEFINEDesta forma vc tera uma propriedade visivel, mas somente leitura.