>>I've the need to dermine the 'reverse' color of a shape to assign to a label, lying over the shape, in order to be able to read the content.
>>I.e. a black color for a shape should give a white color for the label, a blu shape a yellow label and so on.
>>
>>The user can choose the back color of the shape and the label, automatically, should get the 'reverse color'.
>>
>>How can I get the result?
>>TIA
>
>Try

>speccolor=Thisform.BackColor
>  	b=floor(speccolor/65536)
>  	g=floor((speccolor-m.b*65536)/256)
>  	r=floor(speccolor-m.b*65536-m.g*256)
>  	This.ForeColor=IIF(r+3*g+b>255*2.5,rgb(0,0,0),rgb(255,255,255))
>

>From http://forum.foxclub.ru/read.php?29,254746,255048#msg-255048


It doesn't work (only gets black or white).
Any other ideas?

TIA