>LOCAL aobj[1], xx >DELETE FILE testxx.sc? >CREATE FORM testxx NOWAIT >=ASELOBJ(aobj,1) >xx = aobj[1] >xx.autocenter = .t. >xx.addproperty("cproperty") >xx.cproperty = "" >xx.addobject('txt1','textbox') > >* comment out this line and uncomment next for workaround >xx.txt1.controlsource= "thisform.cproperty" >* xx.txt1.writemethod('valid','thisform.cproperty = this.value') >KEYBOARD 'Y' CLEAR >RELEASE WINDOW 'Form Designer' >CLEAR >FOR lnj = 1 TO 5 > DO FORM testxx.scx > FOR lni = 1 TO 10 > testxx.txt1.value = "abc" > ENDFOR > testxx.release() > _CALCMEM = lnj > CLEAR ALL > =SYS(1104) > SET MESSAGE TO > LOCAL lnj > lnj = _CALCMEM > ?SYS(1016),SYS(1011),lnj >ENDFOR >RETURN >>