Para el ejemplo necesitamos un formulario y un panel, tal como se muestra en la siguiente figura:

luego damos doble clic sobre el panel y nos vamos al evento paint del panel en la vista de código, y en este evento colocamos el siguiente código:

Dim y As Integer = 0
Dim x As Integer = 0
Dim ancho As Integer = Me.Width
Dim alto As Integer = Me.Height
Dim color1 As Color
Dim color2 As Color

color1 = Color.DarkRed
color2 = Color.LightCoral

Dim colorear As New _
LinearGradientBrush( _
New Point(x, y), New Point(x + ancho, y), _
color1, color2)
e.Graphics.FillRectangle(colorear, _
x, y, ancho, alto)
y += alto + 10

Para que este código funcione deberemos agregar una referencia a Drawing2D como se muestra a continuación:

Imports System.Drawing.Drawing2D

Al ejecutar el programa deberíamos ver un formulario con un aspecto similar al de la siguiente figura:

Cambiando los valores de las variables color1 y color2 pueden cambiar los resultados a su gusto.

También quiero dejarles a continuación un par de variantes para reemplaar el código del evento paint del panel y obtener distintos resultados… espero que los prueben y les agrade…

Variante 1

Dim y As Integer = 0
Dim x As Integer = 0
Dim ancho As Integer = Me.Width
Dim alto As Integer = Me.Height
Dim color1 As Color
Dim color2 As Color

color1 = Color.DarkRed
color2 = Color.LightCoral

Dim black_white_brush As New _
LinearGradientBrush( _
New Point(x, y), New Point(x + ancho, y), _
color1, color2)

Dim color_blend As New ColorBlend(3)
color_blend.Colors = New Color() {color1, color2, color1}
color_blend.Positions = New Single() {0.0, 0.2, 1.0}
black_white_brush.InterpolationColors = color_blend
e.Graphics.FillRectangle(black_white_brush, _
x, y, ancho, alto)

Variante 2

Dim y As Integer = 0
Dim x As Integer = 0
Dim ancho As Integer = Me.Width
Dim alto As Integer = Me.Height
Dim color1 As Color
Dim color2 As Color

color1 = Color.DarkRed
color2 = Color.LightCoral

Dim colorear As New _
LinearGradientBrush( _
New Point(x, y), New Point(x + ancho, y), _
color1, color2)

Dim diag_brush As New _
LinearGradientBrush( _
New Point(x, y), New Point(x + ancho, y + alto), _
color1, color2)
e.Graphics.FillRectangle(diag_brush, _
x, y, ancho, alto)

Si te sirvieron, por favor, deja un comentario. Saludos