Yes :o(((
I don't know what this means, where I must put this to write the method in some class (may be in builder?).
Unfortunately i try it AFTER i post the message.

>I get:
>
>"Feature is only available if the object is in design mode"
>
>when it hits the writemethod line when I run:
>

>oSysInfo = NEWOBJECT('SysInfo', 'ATISysInfo.vcx')
>SELE sysinfobld
>SCAN
>   IF !EMPTY(sysinfobld.csubitem) .and. LEN(ALLTRIM(sysinfobld.csubitem)) > 0
>	mvalue = ALLTRIM(STRTRAN(sysinfobld.csubitem,CHR(32),''))
>	IF !PEMSTATUS(oSysInfo,mvalue,5)
>		ADDPROPERTY(oSysInfo,mvalue,'')
>	ENDIF
>	IF PEMSTATUS(oSysInfo,mvalue,5)
>		oSysInfo.WRITEMETHOD(mvalue,sysinfobld.mmethod)
>	ENDIF
>   ENDIF
>ENDSCAN
>