ON ERROR ERASE "testform$$$$$$.scx" CREATE FORM testform$$$$$$ NOWAIT ASELOBJ(aDesign,1) aDesign[1].AddObject("CONTAINER1","Container") SAVEFORM() MODIFY FORM testform$$$$$$ NOWAIT FOR K=1 TO 4 && with 3 all is ok COPYALLPASTE() NEXT * THE BUG: a Record out of range SAVEFORM() PROCEDURE COPYALLPASTE ACTIVATE WINDOW "FORM DESIGNER - testform$$$$$$.scx" KEYBOARD '{CTRL+A}' DOEVENTS && select all ACTIVATE WINDOW "FORM DESIGNER - testform$$$$$$.scx" KEYBOARD '{CTRL+C}' DOEVENTS && copy ACTIVATE WINDOW "FORM DESIGNER - testform$$$$$$.scx" KEYBOARD '{CTRL+V}' DOEVENTS && paste PROCEDURE SAVEFORM ACTIVATE WINDOW "FORM DESIGNER - testform$$$$$$.scx" KEYBOARD '{CTRL+S}' DOEVENTS && save RELEASE WINDOWS (WONTOP())