You're welcome!

>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