Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim col As KnownColor
        For col = KnownColor.ActiveBorder To KnownColor.YellowGreen
            ComboBox1.Items.Add(col)
            ComboBox2.Items.Add(col)
        Next
    End Sub

    Private Sub ComboBoxChanger(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged, ComboBox2.SelectedIndexChanged
        Dim g As Graphics = Me.CreateGraphics()
        Dim cl1 As KnownColor = ComboBox1.SelectedItem ' The Selected Item is converted to a KnownColor
        Dim cl2 As KnownColor = ComboBox2.SelectedItem ' The Selected Item is converted to a KnownColor
        Refresh()
        Dim graidentBrush As New Drawing2D.LinearGradientBrush(ClientRectangle, Color.FromKnownColor(cl1), Color.FromKnownColor(cl2), Drawing2D.LinearGradientMode.BackwardDiagonal)' This is for The Gradient Effect
        g.FillRectangle(graidentBrush, ClientRectangle)
    End Sub