Degrade color panel - (Gradient)

This time I want to show a simple way to have a much more attractive panel with a gradient of two colors in visual basic. net .

For example we need a form and a panel, as shown in the following figure:

We then double-click the panel and go to paint the panel event in the code view, and this event put the following code:

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim width As Integer = Me.Width
 Dim high As Integer = Me.Height
 Dim color1 As Color
 Dim color2 As Color

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim color As New _
 LinearGradientBrush (_
 New Point (x, y), New Point (x + width, y), _
 color1, color2)
 e.Graphics.FillRectangle (coloring, _
 x, y, width, height)
 y + = height + 10

For this work we add a code reference Drawing2D as shown below:

 Imports System.Drawing.Drawing2D

Running the program should see a form with a look similar to the following figure:

Changing the values ​​of the variables color1 and color2 can change the results to your liking.

Also I want to leave then a couple of variants for the event code reemplaar panel paint and get different results ... I hope you try them and they like ...

Option 1

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim width As Integer = Me.Width
 Dim high As Integer = Me.Height
 Dim color1 As Color
 Dim color2 As Color

 color1 = Color.DarkRed
 color2 = Color.LightCoral

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

 Dim As New ColorBlend color_blend (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, width, height)

Option 2

 Dim y As Integer = 0
 Dim x As Integer = 0
 Dim width As Integer = Me.Width
 Dim high As Integer = Me.Height
 Dim color1 As Color
 Dim color2 As Color

 color1 = Color.DarkRed
 color2 = Color.LightCoral

 Dim color As New _
 LinearGradientBrush (_
 New Point (x, y), New Point (x + width, y), _
 color1, color2)

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

If you served, please leave a comment. Regards