>*report.DE.Init() >set procedure to myreportclass additive >public goReport > >goReport = createobject( "myclass" ) > >*report.DE.destory method: > >goReport = .null. >release goReport > >* myreportclass.prg >define class myclass as Custom >iProp = 1 > >function init() >debugout program() >endfunc > >function destroy() >debugout program() >endfunc > >function Increment() >this.iProp = this.iProp + 1 >return str( this.iProp ) > >function test() > >return str( x1.i1 * 2 ) > >enddefine >>