local tvalue local cImgName local lnDistance, lnImgWidth, lnFormWidth sele csrtable go top nadd = 0 lnDistance = 200 lnImgWidth = 75 lnFormWidth = _screen.width lnImgCount = INT( (lnFormWidth - lnDistance) / (lnImgWidth + lnDistance) ) *lvalue = (lnFormWidth - (lnImgCount * lnImgWidth) - ((lnImgCount-1) * lnDistance)) / 2 lnleft = INT((lnFormWidth - (lnImgCount * lnImgWidth)) / (lnImgCount+1) ) thisform.root.picture=locfle if .not. eof() skip do while .not. eof() tvalue = thisform.root.top+121 cImgName = alltrim(csrkey) thisform.addobject(cImgName, 'Image') with evaluate('thisform.' + cImgName) .visible=.t. .stretch=1 .width=75 .height=75 .top=tvalue .left=lnleft .picture=locfle .borderstyle=1 endwith lnleft = lnleft + 200 skip enddo endif