I will not take credit for someone else's work. I saw this code a few years ago, and saved it, since my reaction also was "cool"! :-)

>This is cool!
>Where do you come up with this kind of jewels ?? :)
>
>
>>>Is it possible to do any GDI stuff in VFP8? I just want to do a simple gradient fill to help in the visual appearance on a few forms. All the examples I have found are with VFP9.
>>>
>>>Scott
>>
>>No need to use GDI! To get a gradient background, put this code in yourform.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) && Change the color values to your preference
>>   ThisForm.Line(lnRow, 0,lnRow,ThisForm.height)
>>NEXT lnRow

>>Yourform.init:

>>this.resize()