Perhaps this simple bit a of code will permit you to acheive what you need (put this in the init of your form.

LOCAL lnRow

ThisForm.ScaleMode = 3
ThisForm.DrawWidth = 1

FOR lnRow = 0 TO ThisForm.Height
 ThisForm.ForeColor = RGB(0,0,255-255*lnRow/ThisForm.Height)
 ThisForm.Line(0, lnRow, ThisForm.Width, lnRow)
NEXT lnRow

>Hi Mike,
>
>thanks, I had found that link, but didn't want to pay for it as I have never come across an API function that someone wasn't able to help me with. It turns out that using this function with VFP is very difficult due to the way VFP forms hwnds are handled, so I can't use it anyhow. :(
>
>Thanks for the suggestion.
>
>Frank