> Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) > '*************************************** > ' Call The Base Paint Method > '*************************************** > MyBase.OnPaint(e) > > '*************************************** > ' Initialize Variables > '*************************************** > Dim brushBlueGradient As LinearGradientBrush > > '*************************************** > ' Default Values > '*************************************** > brushBlueGradient = New LinearGradientBrush(Me.ClientRectangle, _ > Color.FromArgb(115, 160, 196), _ > Color.FromArgb(194, 213, 224), _ > LinearGradientMode.Vertical) > > '*************************************** > ' Draw Main Gradient Area > '*************************************** > e.Graphics.FillRectangle(brushBlueGradient, New Rectangle(0, 0, Me.ClientSize.Width, Me.ClientSize.Height)) > End Sub >>