'Guardara la posición vertical (en el eje Y donde dibujamos la linea)
    Dim vertical As Integer = 0
 
    'Guarda el avance en el degradado
    Dim pasoAlpha As Double
 
    'Guarda el valor de Alpha
    Dim alpha As Double = 255
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        '255 es el valor maximo de Alpha (Byte)'
        'dividimos entre el alto del Form para
        'saber cuanto debemos restar a Alpha en
        'cada linea que dibujemos
        pasoAlpha = 255 / (Me.Height - 1)
 
        'Mientras que no nos pasemos de los limites del Form y Alpha se valido
        While vertical < Me.Height And alpha > 0
 
            'Dibujamos la linea
            e.Graphics.DrawLine(New Pen(Color.FromArgb(alpha, _
                                                       Color.GreenYellow.R, _
                                                       Color.GreenYellow.G, _
                                                       Color.GreenYellow.B)), _
                                                       0, vertical, _
                                                       Me.Width - 1, vertical)
            'Avanzamos uno hacia abajo (eje Y)
            vertical += 1
 
            'Degradamos otro paso
            alpha -= pasoAlpha
 
        End While
 
    End Sub

Imports System.Drawing.Drawing2D
 
Public Class Form1
 
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
 
        Dim Rectángulo As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
 
        Dim Brocha As New LinearGradientBrush(Rectángulo, Color.Red, Color.Green, LinearGradientMode.Vertical)
 
        e.Graphics.FillRectangle(Brocha, Rectángulo)
 
    End Sub
 
End Class