PUBLIC ARRAY oform[10] oform[1]=_SCREEN FOR k=2 TO 10 oform[m.k]=CREATEOBJECT("form") oform[m.k].Name='formlevel'+TRANSFORM(m.k) oform[m.k].Caption=oform[m.k].Name oform[m.k].move(m.k,m.k) SHOW WINDOW (oform[m.k].Name) IN (oform[m.k-1].Name) ENDFORFabio