Ah!!! I'd hacked with it but didn't try that.
Thanks,

dg

>>>Haven't seen the image you refer to , but maybe this code can give you a start. Put it in the form's Init, and in Resize. Or create a custom method, and call it from Init and Resize.
>>>

>>>LOCAL lnRow
>>>ThisForm.ScaleMode = 3
>>>ThisForm.DrawWidth = 1
>>>FOR lnRow = 0 TO ThisForm.width
>>>   ThisForm.ForeColor = RGB(0,0,255-255*lnRow/ThisForm.width)
>>>   ThisForm.Line(lnRow, 0,lnRow,ThisForm.height)
>>>NEXT lnRow

>>
>>
>>Is it possible to go form blue to white RGB(0,0,255) - RGB(255,255,255)?
>>Thanks,
>>
>>dg
>
>No problem:

>LOCAL lnRow
>ThisForm.ScaleMode = 3
>ThisForm.DrawWidth = 1
>*this.BackColor=RGB(0,0,255)
>FOR lnRow = 0 TO ThisForm.width
>   ThisForm.ForeColor = RGB(255*lnRow/ThisForm.width,255*lnRow/ThisForm.width,255)
>   ThisForm.Line(lnRow, 0,lnRow,ThisForm.height)
>NEXT lnRow