*------------------------------------------------ * FUNCTION Col2RGB(tnColor) *------------------------------------------------ * USE: Col2RGB(1547) * RETURN: Caracter -> "RGB(nR, nG, nB)" *------------------------------------------------ FUNCTION Col2RGB(tnColor) LOCAL lcRGB, ln lcRGB = "RGB(" FOR ln = 1 TO 3 lcRGB = lcRGB+TRAN(tnColor%256,"999")+IIF(ln=3, "", ",") tnColor = INT(tnColor/256) ENDFOR lcRGB = lcRGB+")" RETURN lcRGB ENDFUNC *------------------------------------------------->I want to be able to return an RGB color group by using some sort of color picker.