lcPath = getdir() lnFiles = adir(aImageList, lcPath+'*.*') Create cursor myImageList (FileName m) For ix=1 to alen(aImageList,1) Insert into myImageList values (lcPath+aImageList[ix,1]) Endfor Thisform.Grid1.Column3.Image1.Picture = myImageList.FileName