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