Drawing a Simple Gradient by Seth Willits
02-07-04

Sub Paint(g as graphics)
    dim i as integer, ratio, endratio as Double
    dim StartColor, EndColor as Color

    // Pick our colors
    StartColor = RGB(255, 0, 0)
    EndColor = RGB(0, 0, 255)


    // Draw the gradient
    for i = g.Height DownTo 0

        // Determine the current line's color
        ratio = (i/g.Height)
        endratio = ((g.Height-i)/g.Height)
        g.ForeColor = RGB(EndColor.Red * endratio + StartColor.Red * ratio, EndColor.Green * endratio + StartColor.Green * ratio, EndColor.Blue * endratio + StartColor.Blue * ratio)

        // Draw the step
        g.DrawLine 0, i, g.Width, i
    next
End Sub