>>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 >>>>