Unnamed

Module theme

    'TODO:
    '   menu bar color
    '   menu bar text color
    '   form back color
    '   group box fore color
    '   text box back color
    '   text box fore color
    '   label color
    '   log window fore color


    Sub clearThemesMenuChecks()
        With frmMain
            .DefaultToolStripMenuItem.Checked = False
            .MidnightToolStripMenuItem.Checked = False
            .BlueToolStripMenuItem.Checked = False
            .LimeToolStripMenuItem.Checked = False
            .OrangeToolStripMenuItem.Checked = False
            .PinkToolStripMenuItem.Checked = False
        End With
    End Sub

    Sub menuBarBackColor(ByVal color As Color)
        With frmMain
            .MenuStrip1.BackColor = color
        End With
    End Sub

    Sub menuBarForeColor(ByVal color As Color)
        With frmMain
            .MenuStrip1.ForeColor = color
        End With
    End Sub

    Sub formBackColor(ByVal color As Color)
        With frmMain
            .BackColor = color
        End With
        With frmEggConf
            .BackColor = color
        End With
    End Sub

    Sub gbForeColor(ByVal color As Color)
        With frmMain
            .GB1.ForeColor = color
            .GB2.ForeColor = color
            .GB3.ForeColor = color
            .GB4.ForeColor = color
            .GB5.ForeColor = color
            .GB6.ForeColor = color
            .GB7.ForeColor = color
        End With
        With frmEggConf
            .GroupBox1.ForeColor = color
            .GroupBox2.ForeColor = color
        End With
    End Sub

    Sub txtBackColor(ByVal color As Color)
        With frmMain
            .txtHost.BackColor = color
            .txtUser.BackColor = color
            .txtPass.BackColor = color
            .txtEggInfo.BackColor = color
            .txtEggMsg.BackColor = color
        End With
        With frmEggConf
            .txtEggMsg.BackColor = color
            .txtEggNetwork.BackColor = color
            .txtEggNick.BackColor = color
            .txtEggOwner.BackColor = color
            .txtEggPort.BackColor = color
            .txtEggServer.BackColor = color
        End With
    End Sub

    Sub txtForeColor(ByVal color As Color)
        With frmMain
            .txtHost.ForeColor = color
            .txtUser.ForeColor = color
            .txtPass.ForeColor = color
            .txtEggInfo.ForeColor = color
            .txtEggMsg.ForeColor = color
        End With
        With frmEggConf
            .txtEggMsg.ForeColor = color
            .txtEggNetwork.ForeColor = color
            .txtEggNick.ForeColor = color
            .txtEggOwner.ForeColor = color
            .txtEggPort.ForeColor = color
            .txtEggServer.ForeColor = color
        End With
    End Sub

    Sub lblForeColor(ByVal color As Color)

    End Sub

    Sub logForeColor(ByVal color As Color)

    End Sub

    Sub defaultTheme()
        With frmMain
            clearThemesMenuChecks()
            .DefaultToolStripMenuItem.Checked = True
            menuBarBackColor(Color.LightSteelBlue)
            menuBarForeColor(Color.Black)
            formBackColor(.colorFormBackground)




        End With
    End Sub

    Sub midnightTheme()
        With frmMain
            clearThemesMenuChecks()
            .MidnightToolStripMenuItem.Checked = True
            menuBarBackColor(Color.DarkGray)
            menuBarForeColor(Color.Black)
            formBackColor(Color.Black)


        End With
    End Sub

    Sub blueTheme()
        With frmMain
            clearThemesMenuChecks()
            .BlueToolStripMenuItem.Checked = True


        End With
    End Sub

    Sub limeTheme()
        With frmMain
            clearThemesMenuChecks()
            .LimeToolStripMenuItem.Checked = True


        End With
    End Sub

    Sub orangeTheme()
        With frmMain
            clearThemesMenuChecks()
            .OrangeToolStripMenuItem.Checked = True


        End With

    End Sub

    Sub pinkTheme()
        With frmMain
            clearThemesMenuChecks()
            .PinkToolStripMenuItem.Checked = True


        End With
    End Sub

End Module