Fiz uma função parecida com e do post
http://www.vbweb.com.br/forum_resp.asp?Codigo=139626 porém quero que o cliente selecione a cor que deverá ser montando o degradê... ou até mesmo as duas cores que se devem interagir para montar o Degradê, porém estou barrado no problema de como transformar o valor Long de um cor em RGB, e onde eu estipulo onde o laço de repetição deve diminuir para dar a impressão de degradê...
Em algumas documentações que verifiquei achei a seguinte função, que dizia converter em RGB:
Red = (RGBInt / 65536) Mod 256
Green = (RGBInt / 256) Mod 256
Blue = RGBInt Mod 256
Porém não funciona... em algumas cores por coincidência sim, mas na maioria não.
Minha Idéia foi a Seguinte:
For I = 0 To 255
Picture1.Line (0, intLoop)-(Screen.Width, intLoop - 1), RGB(8, 0, I)
Next I
Até ai Blz pois a cor está especificada...
Enfium alguém conhece a forma para calcular o RGB de uma Cor em Long
