Local ix,c Local Array aTest[1] For ix=1 To 3 Dimension aTest[ Iif(Type('aTest[1]')='C',Alen(aTest)+1,1) ] aTest[ALEN(aTest)] = Transform(m.ix) Endfor Display Memory Like aTest