Dim x1 As Integer = 10
        Dim x2 As Integer = Me.ClientSize.Width - x1
        Dim the_brush As LinearGradientBrush
        the_brush = New LinearGradientBrush( _
            New Point(x1, 0), New Point(x2, 0), _
            Color.Red, Color.Blue)
        the_brush.WrapMode = WrapMode.TileFlipX
 
        ' Define the colors.
        Dim color_blend As New ColorBlend
        color_blend.Colors = New Color() {Color.Red, _
            Color.Green, Color.Blue}
        color_blend.Positions = New Single() {0.0, 0.5, 1.0}
        the_brush.InterpolationColors = color_blend
        the_brush.GammaCorrection = True
        e.Graphics.FillEllipse(the_brush, 5, 5, CInt((x2 - x1) / 2) - x1, CInt(( _
          x2 - x1) / 2) - x1)