CREATE CURSOR SomeTable (cScatterProperty L) INSERT INTO SomeTable VALUES (.F.) CLEAR oBS=NewObject("Custom") oBS.Addproperty ("cSomeNewProperty",.F.) Addproperty (m.oBS,"cSomeNewProperty2",.F.) scatter Name m.oBS ADDITIVE *oBS.SaveAsClass('\cSomeLib','savedclass') FOR k=1 TO AMEMBERS(aProp,m.oBS,1,[G#]) IF LIKE('CS*',aProp[m.k,1]) ? aProp[m.k,1] ?? PEMSTATUS(m.oBS,aProp[m.k,1],4) AT 30 ?? PEMSTATUS(m.oBS,aProp[m.k,1],0) AT 35 ?? aProp[m.k,2] at 55 ?? aProp[m.k,3] at 70 ENDIF NEXTFabio