كيفية رسم لون متدرج على أداة في الفورم

كود :

Namespace DevDistrict.Sample

Imports System

Imports System.Windows.Forms

Imports System.Drawing

Imports System.Drawing.Drawing2D





Public Class GradientPanel

Inherits System.Windows.Forms.Panel



Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)

MyBase.OnPaint(e)

Dim g As Graphics = e.Graphics

g.SmoothingMode = SmoothingMode.HighQuality

Dim gPath As GraphicsPath = New GraphicsPath

Dim r As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)

gPath.AddRectangle(r)

Dim lb As LinearGradientBrush = New LinearGradientBrush(r, Color.White, Color.Blue, LinearGradientMode.Vertical)

g.FillPath(lb, gPath)

End Sub

End Class

End Namespace