>>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>
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