Olá a todos,
Estou tentando adicionar propriedades readonly ao COM que estou criando. Estou fazendo exatamente como no help(código abaixo), porém as propriedades não ficam readonly. Tenho que fazer mais alguma coisa? Tem algo errado?

DEFINE CLASS myclass AS CUSTOM olepublic
* Define property
MyProperty = 5.2
* Set the COM attributes for MyProperty
DIMENSION MyProperty_COMATTRIB[4]
myproperty_COMATTRIB[1] = COMATTRIB_READONLY
myproperty_COMATTRIB[2] = "Minha propriedade"
myproperty_COMATTRIB[3] = "MyProperty"&& Proper capitalization.
myproperty_COMATTRIB[4] = "Float"&& Data type
ENDDEFINE