Public Class preferencias

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        If TrackBar1.Value = 0 Then
            Form1.ToolStrip1.BackColor = Color.DimGray
            Form1.MenuStrip1.BackColor = Color.DimGray
            Form1.ToolStripButton3.ForeColor = Color.White
            Form1.ToolStripButton2.ForeColor = Color.White
            Form1.ToolStripButton1.ForeColor = Color.White
            Form1.ArchivoToolStripMenuItem.ForeColor = Color.White
            Form1.ActualizacionesToolStripMenuItem.ForeColor = Color.White
            Form1.NavegadoresCompatiblesToolStripMenuItem.ForeColor = Color.White
            Form1.ConfiguracionesToolStripMenuItem.ForeColor = Color.White
            Form1.AcercaDeToolStripMenuItem.ForeColor = Color.White
            Form1.SalirToolStripMenuItem1.ForeColor = Color.White
        End If
        If TrackBar1.Value = 1 Then
            Form1.ToolStrip1.BackColor = Color.Gray
            Form1.MenuStrip1.BackColor = Color.Gray
            Form1.ToolStripButton3.ForeColor = Color.LightGray
            Form1.ToolStripButton2.ForeColor = Color.LightGray
            Form1.ToolStripButton1.ForeColor = Color.LightGray
            Form1.ArchivoToolStripMenuItem.ForeColor = Color.LightGray
            Form1.ActualizacionesToolStripMenuItem.ForeColor = Color.LightGray
            Form1.NavegadoresCompatiblesToolStripMenuItem.ForeColor = Color.LightGray
            Form1.ConfiguracionesToolStripMenuItem.ForeColor = Color.LightGray
            Form1.AcercaDeToolStripMenuItem.ForeColor = Color.LightGray
            Form1.SalirToolStripMenuItem1.ForeColor = Color.LightGray
        End If
        If TrackBar1.Value = 2 Then
            Form1.ToolStrip1.BackColor = Color.DarkGray
            Form1.MenuStrip1.BackColor = Color.DarkGray
            Form1.ToolStripButton3.ForeColor = Color.Black
            Form1.ToolStripButton2.ForeColor = Color.Black
            Form1.ToolStripButton1.ForeColor = Color.Black
            Form1.ArchivoToolStripMenuItem.ForeColor = Color.Black
            Form1.ActualizacionesToolStripMenuItem.ForeColor = Color.Black
            Form1.NavegadoresCompatiblesToolStripMenuItem.ForeColor = Color.Black
            Form1.ConfiguracionesToolStripMenuItem.ForeColor = Color.Black
            Form1.AcercaDeToolStripMenuItem.ForeColor = Color.Black
            Form1.SalirToolStripMenuItem1.ForeColor = Color.Black
        End If
        If TrackBar1.Value = 3 Then
            Form1.ToolStrip1.BackColor = Color.LightGray
            Form1.MenuStrip1.BackColor = Color.LightGray
            Form1.ToolStripButton3.ForeColor = Color.Black
            Form1.ToolStripButton2.ForeColor = Color.Black
            Form1.ToolStripButton1.ForeColor = Color.Black
            Form1.ArchivoToolStripMenuItem.ForeColor = Color.Black
            Form1.ActualizacionesToolStripMenuItem.ForeColor = Color.Black
            Form1.NavegadoresCompatiblesToolStripMenuItem.ForeColor = Color.Black
            Form1.ConfiguracionesToolStripMenuItem.ForeColor = Color.Black
            Form1.AcercaDeToolStripMenuItem.ForeColor = Color.Black
            Form1.SalirToolStripMenuItem1.ForeColor = Color.Black
        End If
        If TrackBar1.Value = 4 Then
            Form1.ToolStrip1.BackColor = Color.WhiteSmoke
            Form1.MenuStrip1.BackColor = Color.WhiteSmoke
            Form1.ToolStripButton3.ForeColor = Color.Black
            Form1.ToolStripButton2.ForeColor = Color.Black
            Form1.ToolStripButton1.ForeColor = Color.Black
            Form1.ArchivoToolStripMenuItem.ForeColor = Color.Black
            Form1.ActualizacionesToolStripMenuItem.ForeColor = Color.Black
            Form1.NavegadoresCompatiblesToolStripMenuItem.ForeColor = Color.Black
            Form1.ConfiguracionesToolStripMenuItem.ForeColor = Color.Black
            Form1.AcercaDeToolStripMenuItem.ForeColor = Color.Black
            Form1.SalirToolStripMenuItem1.ForeColor = Color.Black
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub

    Private Sub preferencias_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Form1.FastColoredTextBox1.Font = RichTextBox1.Font
    End Sub

    Private Sub preferencias_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        RichTextBox1.Font = Form1.FastColoredTextBox1.Font
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
            RichTextBox1.Font = TextBox3.Font
            Form1.FastColoredTextBox1.Font = RichTextBox1.Font
            Form1.FastColoredTextBox2.Font = RichTextBox1.Font
    End Sub

    Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
            RichTextBox1.Font = TextBox2.Font
            Form1.FastColoredTextBox1.Font = RichTextBox1.Font
            Form1.FastColoredTextBox2.Font = RichTextBox1.Font
    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
            RichTextBox1.Font = TextBox1.Font
            Form1.FastColoredTextBox1.Font = RichTextBox1.Font
            Form1.FastColoredTextBox2.Font = RichTextBox1.Font
    End Sub
End Class