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