[Solved]Settings

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        RibbonControl1.Office2007ColorTable = My.Settings.style
    End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Blue" Then
            RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Blue
            My.Settings.style = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Blue
        End If

        If ComboBox1.Text = "Black" Then
            RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Black
            My.Settings.style = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Black
        End If

        If ComboBox1.Text = "Silver" Then
            RibbonControl1.Office2007ColorTable = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Silver
            My.Settings.style = DevComponents.DotNetBar.Rendering.eOffice2007ColorScheme.Silver
        End If

        My.Settings.Save()
        My.Settings.Reload()

    End Sub