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 lnRowYourform.init:
this.resize()NB! If you resize the form this code is not perfect.