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()
Original