>lcHtml=lcHtml+'<TABLE CELLSPACING=0 CELLPADDING=0 ID=ToCenter><TR>' >lnPerRow = 8 >Store 255/(2^3-1) to lnRedInc, lnGreenInc >lnBlueInc = 255/(2^2-1) >lnShp=0 >For blue = 0 to 2^2-1 > For green = 0 to 2^3-1 > For red = 0 to 2^3-1 > lnShp = lnShp+1 > lnRed = round(red * lnRedInc,0) > lnGreen = round(green * lnGreenInc,0) > lnBlue = round(blue * lnBlueInc,0) > lcWebColor = right(trans(rgb(lnBlue,lnGreen,lnRed),'@0'),6) > lcHtml=lcHtml+iif((lnShp-1)%lnPerRow=0,'<TR>','')+; > '<TD bgcolor=#'+lcWebColor'">...' > Endfor > Endfor >Endfor >lcHtml=lcHtml+'</TABLE>' >