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>'