FoxPro/Visual FoxPro - Colores degradados con VFP 9.0

Hola, corro unos formulacion con efecto de color degradados me corre bien en VFP 7.0, pero este mismo codigo lo corro con VFP 9.0 y se borran los objetos del formulario, alguna idea de que pasa o falta colocar alguna propiedad en el formularion aqui va el codigo esta ubicado en el evento INIT

*** Rutina para degradar el color ***
Local i,color1, R, G, B
With Thisform
.scalemode = 3 &&pixeles
.drawstyle = 0 && sólido
.drawwidth = 2
R=254
G=226
B=199

FOR i = 1 to 255
*-- Disminuimos valor de colores
If r > 0 then
r = r - .5
endif
IF g > 0 then
g = g - .5
endif
IF b > 0 Then
b = b - .5
endif
color1 = RGB(R,G,B)

*Establesco el color
.forecolor=Color1

*- Dibujo linea sobre el fomulario
.line (0,.ViewPortHeight * (i - 1) / 255, .ViewPortwidth, .ViewPortheight * i / 255)
NEXT i
EndWith
********** fin rutina *********************

Saludos amigo....

gracias por el aporte amigo,

saludes