LoTROInterface SVN MyUi-BuildyourUIupdate

Public Class Builder

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

        'Start by looking for the MyDocuments folder

        Dim Ui As String

        Ui = My.Computer.FileSystem.SpecialDirectories.MyDocuments + "\The Lord of the Rings Online\ui\skins\MyUi\"

        'Now, begin the combine. First name the target file - whilst debugging this has an odd name

        Dim Final As String

        Final = "SkinDefinition.xml"

        'Now begin the file

        My.Computer.FileSystem.WriteAllText(Ui + Final, System.IO.File.ReadAllText(Ui + "open.xml"), False)

        'Here goes everything else!

        'Define a temp text holder

        Dim TempText As String

        'Toolbar

        TempText = "Null.xml"

        If Me.ToolBar.Text = "DaimonUI Universal MOM" Then

            TempText = "toolbars\dmnuiuniMOM.xml"

        ElseIf Me.ToolBar.Text = "DaimonUI Universal SOM" Then

            TempText = "toolbars\dmnuiuniSOM.xml"

        ElseIf Me.ToolBar.Text = "Small Bar" Then

            If Me.Resolution.Text = "800x600" Then

                TempText = "toolbars\SmallBar800.xml"

            ElseIf Me.Resolution.Text = "1024x768" Then

                TempText = "toolbars\SmallBar1024.xml"

            ElseIf Me.Resolution.Text = "1152x768" Then

                TempText = "toolbars\SmallBar1152.xml"

            ElseIf Me.Resolution.Text = "1280x720" Then

                TempText = "toolbars\SmallBar1280.xml"

            ElseIf Me.Resolution.Text = "1280x1024" Then

                TempText = "toolbars\SmallBar1280.xml"

            ElseIf Me.Resolution.Text = "1366x768" Then

                TempText = "toolbars\SmallBar1366.xml"

            ElseIf Me.Resolution.Text = "1440x900" Then

                TempText = "toolbars\SmallBar1440.xml"

            ElseIf Me.Resolution.Text = "1600x900" Then

                TempText = "toolbars\SmallBar1600.xml"

            ElseIf Me.Resolution.Text = "1680x1024" Then

                TempText = "toolbars\SmallBar1680.xml"

            ElseIf Me.Resolution.Text = "1680x1050" Then

                TempText = "toolbars\SmallBar1680.xml"

            ElseIf Me.Resolution.Text = "1920x1080" Then

                TempText = "toolbars\SmallBar1920.xml"

            ElseIf Me.Resolution.Text = "1920x1200" Then

                TempText = "toolbars\SmallBar1920.xml"

            ElseIf Me.Resolution.Text = "2048x1080" Then

                TempText = "toolbars\SmallBar2048.xml"

            ElseIf Me.Resolution.Text = "2048x1536" Then

                TempText = "toolbars\SmallBar2048.xml"

            ElseIf Me.Resolution.Text = "2560x1600" Then

                TempText = "toolbars\SmallBar2560.xml"

            ElseIf Me.Resolution.Text = "2560x2048" Then

                TempText = "toolbars\SmallBar2560.xml"

            End If

        ElseIf Me.ToolBar.Text = "Jackdaws" Then

            If Me.Resolution.Text = "1024x768" Then

                TempText = "toolbars\JackdawsToolbar1024.xml"

            ElseIf Me.Resolution.Text = "1152x768" Then

                TempText = "toolbars\JackdawsToolbar1152.xml"

            ElseIf Me.Resolution.Text = "1280x720" Then

                TempText = "toolbars\JackdawsToolbar1280.xml"

            ElseIf Me.Resolution.Text = "1280x1024" Then

                TempText = "toolbars\JackdawsToolbar1280.xml"

            ElseIf Me.Resolution.Text = "1366x768" Then

                TempText = "toolbars\JackdawsToolbar1366.xml"

            ElseIf Me.Resolution.Text = "1440x900" Then

                TempText = "toolbars\JackdawsToolbar1440.xml"

            ElseIf Me.Resolution.Text = "1600x900" Then

                TempText = "toolbars\JackdawsToolbar1600.xml"

            ElseIf Me.Resolution.Text = "1680x1024" Then

                TempText = "toolbars\JackdawsToolbar1680.xml"

            ElseIf Me.Resolution.Text = "1680x1050" Then

                TempText = "toolbars\JackdawsToolbar1680.xml"

            ElseIf Me.Resolution.Text = "1920x1080" Then

                TempText = "toolbars\JackdawsToolbar1920.xml"

            ElseIf Me.Resolution.Text = "1920x1200" Then

                TempText = "toolbars\JackdawsToolbar1920.xml"

            ElseIf Me.Resolution.Text = "2048x1080" Then

                TempText = "toolbars\JackdawsToolbar2048.xml"

            ElseIf Me.Resolution.Text = "2048x1536" Then

                TempText = "toolbars\JackdawsToolbar2048.xml"

            ElseIf Me.Resolution.Text = "2560x1600" Then

                TempText = "toolbars\JackdawsToolbar2560.xml"

            ElseIf Me.Resolution.Text = "2560x2048" Then

                TempText = "toolbars\JackdawsToolbar2560.xml"

            End If

        ElseIf Me.ToolBar.Text = "Arty Bar, 0ne row" Then

            If Me.Resolution.Text = "800x600" Then

                TempText = "toolbars\Toolbar1800.xml"

            ElseIf Me.Resolution.Text = "1024x768" Then

                TempText = "toolbars\Toolbar11024.xml"

            ElseIf Me.Resolution.Text = "1152x768" Then

                TempText = "toolbars\Toolbar11152.xml"

            ElseIf Me.Resolution.Text = "1280x720" Then

                TempText = "toolbars\Toolbar11280.xml"

            ElseIf Me.Resolution.Text = "1280x1024" Then

                TempText = "toolbars\Toolbar11280.xml"

            ElseIf Me.Resolution.Text = "1366x768" Then

                TempText = "toolbars\Toolbar11366.xml"

            ElseIf Me.Resolution.Text = "1440x900" Then

                TempText = "toolbars\Toolbar11440.xml"

            ElseIf Me.Resolution.Text = "1600x900" Then

                TempText = "toolbars\Toolbar11600.xml"

            ElseIf Me.Resolution.Text = "1680x1024" Then

                TempText = "toolbars\Toolbar11680.xml"

            ElseIf Me.Resolution.Text = "1680x1050" Then

                TempText = "toolbars\Toolbar11680.xml"

            ElseIf Me.Resolution.Text = "1920x1080" Then

                TempText = "toolbars\Toolbar11920.xml"

            ElseIf Me.Resolution.Text = "1920x1200" Then

                TempText = "toolbars\Toolbar11920.xml"

            ElseIf Me.Resolution.Text = "2048x1080" Then

                TempText = "toolbars\Toolbar12048.xml"

            ElseIf Me.Resolution.Text = "2048x1536" Then

                TempText = "toolbars\Toolbar12048.xml"

            ElseIf Me.Resolution.Text = "2560x1600" Then

                TempText = "toolbars\Toolbar12560.xml"

            ElseIf Me.Resolution.Text = "2560x2048" Then

                TempText = "toolbars\Toolbar12560.xml"

            End If

        ElseIf Me.ToolBar.Text = "Arty Bar, Two Rows" Then

            If Me.Resolution.Text = "800x600" Then

                TempText = "toolbars\Toolbar2800.xml"

            ElseIf Me.Resolution.Text = "1024x768" Then

                TempText = "toolbars\Toolbar21024.xml"

            ElseIf Me.Resolution.Text = "1152x768" Then

                TempText = "toolbars\Toolbar21152.xml"

            ElseIf Me.Resolution.Text = "1280x720" Then

                TempText = "toolbars\Toolbar21280.xml"

            ElseIf Me.Resolution.Text = "1280x1024" Then

                TempText = "toolbars\Toolbar21280.xml"

            ElseIf Me.Resolution.Text = "1366x768" Then

                TempText = "toolbars\Toolbar21366.xml"

            ElseIf Me.Resolution.Text = "1440x900" Then

                TempText = "toolbars\Toolbar21440.xml"

            ElseIf Me.Resolution.Text = "1600x900" Then

                TempText = "toolbars\Toolbar21600.xml"

            ElseIf Me.Resolution.Text = "1680x1024" Then

                TempText = "toolbars\Toolbar21680.xml"

            ElseIf Me.Resolution.Text = "1680x1050" Then

                TempText = "toolbars\Toolbar21680.xml"

            ElseIf Me.Resolution.Text = "1920x1080" Then

                TempText = "toolbars\Toolbar21920.xml"

            ElseIf Me.Resolution.Text = "1920x1200" Then

                TempText = "toolbars\Toolbar21920.xml"

            ElseIf Me.Resolution.Text = "2048x1080" Then

                TempText = "toolbars\Toolbar22048.xml"

            ElseIf Me.Resolution.Text = "2048x1536" Then

                TempText = "toolbars\Toolbar22048.xml"

            ElseIf Me.Resolution.Text = "2560x1600" Then

                TempText = "toolbars\Toolbar22560.xml"

            ElseIf Me.Resolution.Text = "2560x2048" Then

                TempText = "toolbars\Toolbar22560.xml"

            End If

        ElseIf Me.ToolBar.Text = "Arty Bar, Three rows" Then

            If Me.Resolution.Text = "800x600" Then

                TempText = "toolbars\Toolbar3800.xml"

            ElseIf Me.Resolution.Text = "1024x768" Then

                TempText = "toolbars\Toolbar31024.xml"

            ElseIf Me.Resolution.Text = "1152x768" Then

                TempText = "toolbars\Toolbar31152.xml"

            ElseIf Me.Resolution.Text = "1280x720" Then

                TempText = "toolbars\Toolbar31280.xml"

            ElseIf Me.Resolution.Text = "1280x1024" Then

                TempText = "toolbars\Toolbar31280.xml"

            ElseIf Me.Resolution.Text = "1366x768" Then

                TempText = "toolbars\Toolbar31366.xml"

            ElseIf Me.Resolution.Text = "1440x900" Then

                TempText = "toolbars\Toolbar31440.xml"

            ElseIf Me.Resolution.Text = "1600x900" Then

                TempText = "toolbars\Toolbar31600.xml"

            ElseIf Me.Resolution.Text = "1680x1024" Then

                TempText = "toolbars\Toolbar31680.xml"

            ElseIf Me.Resolution.Text = "1680x1050" Then

                TempText = "toolbars\Toolbar31680.xml"

            ElseIf Me.Resolution.Text = "1920x1080" Then

                TempText = "toolbars\Toolbar31920.xml"

            ElseIf Me.Resolution.Text = "1920x1200" Then

                TempText = "toolbars\Toolbar31920.xml"

            ElseIf Me.Resolution.Text = "2048x1080" Then

                TempText = "toolbars\Toolbar32048.xml"

            ElseIf Me.Resolution.Text = "2048x1536" Then

                TempText = "toolbars\Toolbar32048.xml"

            ElseIf Me.Resolution.Text = "2560x1600" Then

                TempText = "toolbars\Toolbar32560.xml"

            ElseIf Me.Resolution.Text = "2560x2048" Then

                TempText = "toolbars\Toolbar32560.xml"

            End If

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Player Vitals

        TempText = "Null.xml"

        If Me.PlayerVit.Text = "Buffs Above" Then

            TempText = "Vitals\PlayerVitals.xml"

        ElseIf Me.PlayerVit.Text = "Thin" Then

            TempText = "Vitals\ThinPlayerVitals.xml"

        ElseIf Me.PlayerVit.Text = "Clear" Then

            TempText = "Vitals\ClearVitals.xml"

        ElseIf Me.PlayerVit.Text = "Azure+Champ" Then

            TempText = "Vitals\AzureChampPl.xml"

        ElseIf Me.OppVit.Text = "DaimonUI Mini MOM" Then

            TempText = "Vitals\dmnuiminiplmom.xml"

        ElseIf Me.OppVit.Text = "DaimonUI Mini SOM" Then

            TempText = "Vitals\dmnuiminiplsom.xml"

        ElseIf Me.OppVit.Text = "Ultra Mini Vitals" Then

            TempText = "Vitals\UltraMiniVitals.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Opponent Vitals

        TempText = "Null.xml"

        If Me.OppVit.Text = "Buffs Above" Then

            TempText = "Vitals\OpponentVitals.xml"

        ElseIf Me.OppVit.Text = "Clear" Then

            TempText = "Vitals\ClearOppVitals.xml"

        ElseIf Me.OppVit.Text = "Champ" Then

            TempText = "Vitals\Champ.xml"

        ElseIf Me.OppVit.Text = "Azure+Champ" Then

            TempText = "Vitals\AzureChampOp.xml"

        ElseIf Me.OppVit.Text = "DaimonUI Mini MOM" Then

            TempText = "Vitals\dmnuiminioppmom.xml"

        ElseIf Me.OppVit.Text = "DaimonUI Mini SOM" Then

            TempText = "Vitals\dmnuiminioppsom.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Mail

        TempText = "Null.xml"

        If Me.Mail.Text = "Brygard" Then

            TempText = "Mail\BrygardMail.xml"

        ElseIf Me.Mail.Text = "Firefern" Then

            TempText = "Mail\firefernmail.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Graphics

        TempText = "Null.xml"

        If Me.Box.Checked = True Then

            TempText = "Graphics\Box.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        TempText = "Null.xml"

        If Me.Scrollbar.Checked = True Then

            TempText = "Graphics\Scrollbar.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Crafting

        TempText = "Null.xml"

        If Me.Craft.Text = "Tallcraft" Then

            TempText = "Crafting\Tallcraft.xml"

        ElseIf Me.Craft.Text = "Widecraft" Then

            TempText = "Crafting\Widecraft.xml"

        ElseIf Me.Craft.Text = "Supercraft" Then

            TempText = "Crafting\Supercraft.xml"

        ElseIf Me.Craft.Text = "Fireferns" Then

            TempText = "Crafting\Fireferns.xml"

        ElseIf Me.Craft.Text = "Amalises" Then

            TempText = "Crafting\AmaliseCraft.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Minimap

        TempText = "Null.xml"

        If Me.Minimap.Text = "Modified1" Then

            TempText = "Minimap\Minimap.xml"

        ElseIf Me.Minimap.Text = "Modified2" Then

            TempText = "Minimap\Minimap2.xml"

        ElseIf Me.Minimap.Text = "DaimonUI" Then

            TempText = "Minimap\dmnui_minimap.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Bags

        TempText = "Null.xml"

        If Me.Bags.Text = "Sexy" Then

            TempText = "Bags\Bags.xml"

        ElseIf Me.Bags.Text = "Ultra Mini" Then

            TempText = "Bags\Mini.xml"

        ElseIf Me.Bags.Text = "Ultra Mini Locked" Then

            TempText = "Bags\MiniLocked.xml"

        ElseIf Me.Bags.Text = "Amalise" Then

            TempText = "Bags\AmaliseBag.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Dressup

        TempText = "Null.xml"

        If Me.Dressing.Text = "BDRX" Then

            If Me.BDRXRes.Text = "800x600" Then

                TempText = "Dressup\bdrx800x600.xml"

            ElseIf Me.BDRXRes.Text = "1024x768" Then

                TempText = "Dressup\bdrx1024x768.xml"

            ElseIf Me.BDRXRes.Text = "1152x768" Then

                TempText = "Dressup\bdrx1152x768.xml"

            ElseIf Me.BDRXRes.Text = "1280x720" Then

                TempText = "Dressup\bdrx1280x720.xml"

            ElseIf Me.BDRXRes.Text = "1280x1024" Then

                TempText = "Dressup\bdrx1280x1024.xml"

            ElseIf Me.BDRXRes.Text = "1366x768" Then

                TempText = "Dressup\bdrx1366x768.xml"

            ElseIf Me.BDRXRes.Text = "1440x900" Then

                TempText = "Dressup\bdrx1440x900.xml"

            ElseIf Me.BDRXRes.Text = "1600x900" Then

                TempText = "Dressup\bdrx1600x900.xml"

            ElseIf Me.BDRXRes.Text = "1680x1024" Then

                TempText = "Dressup\bdrx1680x1024.xml"

            ElseIf Me.BDRXRes.Text = "1680x1050" Then

                TempText = "Dressup\bdrx1680x1050.xml"

            ElseIf Me.BDRXRes.Text = "1920x1080" Then

                TempText = "Dressup\bdrx1920x1080.xml"

            ElseIf Me.BDRXRes.Text = "1920x1200" Then

                TempText = "Dressup\bdrx1920x1200.xml"

            ElseIf Me.BDRXRes.Text = "2048x1080" Then

                TempText = "Dressup\bdrx2048x1080.xml"

            ElseIf Me.BDRXRes.Text = "2048x1536" Then

                TempText = "Dressup\bdrx2048x1536.xml"

            ElseIf Me.BDRXRes.Text = "2560x1600" Then

                TempText = "Dressup\bdrx2560x1600.xml"

            ElseIf Me.BDRXRes.Text = "2560x2048" Then

                TempText = "Dressup\bdrx2560x2048.xml"

            End If

        ElseIf Me.Dressing.Text = "Fireferns" Then

            TempText = "Dressup\fireferndress.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Auction

        TempText = "Null.xml"

        If Me.largeauction.Checked = True Then

            TempText = "Auction\largeauction.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'DamonBio

        TempText = "Null.xml"

        If Me.DaimonBio.Checked = True Then

            TempText = "dmnBioPanel\Bio.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'IA

        TempText = "Null.xml"

        If Me.itemAdvancement.Checked = True Then

            TempText = "IA\LargeIA.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Stable Master

        TempText = "Null.xml"

        If Me.BlackStable.Checked = True Then

            TempText = "Stablemaster\BlackStablemaster.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'QuestLog

        TempText = "Null.xml"

        If Me.FirefernQuestLog.Checked = True Then

            TempText = "Quest\firefernquest.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Vendor

        TempText = "Null.xml"

        If Me.firefernvendor.Checked = True Then

            TempText = "Vendor\firefernvendor.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Barter

        TempText = "Null.xml"

        If Me.ExtendedBarter.Checked = True Then

            TempText = "Barter\TheoldoneBarter.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Skirmish

        TempText = "Null.xml"

        If Me.Skirmish.Checked = True Then

            TempText = "Skirmish\WorldJoin.xml"

        End If

        text_combine(Ui + TempText, Ui + Final)

        'Now to close the file

        text_combine(Ui + "end.xml", Ui + Final)

        MsgBox("Done!")

    End Sub

    Sub CheckBoxes()

        'covert the checkbox ticks into images in the boxes

        If Me.Scrollbar.Checked = True Then

            ScrollbarImageBox.Image = My.Resources.FadedScrollbar

        Else

            ScrollbarImageBox.Image = My.Resources.DefaultScrollbar

        End If

        If Me.Box.Checked = True Then

            FrameImageBox.Image = My.Resources.Frame

        Else

            FrameImageBox.Image = My.Resources.DefaultFrame

        End If

    End Sub

    Private Sub Scrollbar_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Scrollbar.CheckedChanged

        CheckBoxes()

    End Sub

    Private Sub Box_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Box.CheckedChanged

        CheckBoxes()

    End Sub

    Private Sub Bags_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bags.SelectedIndexChanged

        'Bag Image

        If Me.Bags.Text = "Amalise" Then

            BagImageBox.Image = My.Resources.AmaliseBag

        ElseIf Me.Bags.Text = "Ultra Mini" Then

            BagImageBox.Image = My.Resources.Minibag

        ElseIf Me.Bags.Text = "Ultra Mini Locked" Then

            BagImageBox.Image = My.Resources.Minibag

        ElseIf Me.Bags.Text = "Sexy" Then

            BagImageBox.Image = My.Resources.SexyBags

        Else

            BagImageBox.Image = My.Resources.DefaultBags

        End If

    End Sub

    Private Sub Craft_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Craft.SelectedIndexChanged

        'Display Image of Crafting Frame

        If Me.Craft.Text = "Tallcraft" Then

            CraftingImageBox.Image = My.Resources.Tallcraft

        ElseIf Me.Craft.Text = "Widecraft" Then

            CraftingImageBox.Image = My.Resources.widecraft

        ElseIf Me.Craft.Text = "Supercraft" Then

            CraftingImageBox.Image = My.Resources.Supercraft

        ElseIf Me.Craft.Text = "Fireferns" Then

            CraftingImageBox.Image = My.Resources.firefernscraft

        ElseIf Me.Craft.Text = "Amalises" Then

            CraftingImageBox.Image = My.Resources.Amalisecraft

        Else

            CraftingImageBox.Image = My.Resources.DefaultCraft

        End If

    End Sub

    Private Sub PlayerVit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayerVit.SelectedIndexChanged

        'Display Image of Player Vitals

        If Me.PlayerVit.Text = "Buffs Above" Then

            PlayerVitalsImageBox.Image = My.Resources.PlayerBuffsAboveNameBelow

        ElseIf Me.PlayerVit.Text = "Thin" Then

            PlayerVitalsImageBox.Image = My.Resources.ThinPlayerVitals

        ElseIf Me.PlayerVit.Text = "Clear" Then

            PlayerVitalsImageBox.Image = My.Resources.ClearPlayerVitals

        ElseIf Me.PlayerVit.Text = "Azure+Champ" Then

            PlayerVitalsImageBox.Image = My.Resources.Enfieldchampp

        ElseIf Me.PlayerVit.Text = "DaimonUI Mini MOM" Then

            PlayerVitalsImageBox.Image = My.Resources.PVitMOM

        ElseIf Me.PlayerVit.Text = "DaimonUI Mini SOM" Then

            PlayerVitalsImageBox.Image = My.Resources.PVitSOM

        ElseIf Me.PlayerVit.Text = "Ultra Mini Vitals" Then

            PlayerVitalsImageBox.Image = My.Resources.UltraMiniVitals

        Else

            PlayerVitalsImageBox.Image = My.Resources.DefaultPlayerVitals

        End If

    End Sub

    Private Sub OppVit_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OppVit.SelectedIndexChanged

        'Display Image of Opponent Vitals

        If Me.OppVit.Text = "Buffs Above" Then

            OppVitalsImageBox.Image = My.Resources.OpponentBuffsAboveNameBelow

        ElseIf Me.OppVit.Text = "Clear" Then

            OppVitalsImageBox.Image = My.Resources.ClearOpponentVitals

        ElseIf Me.OppVit.Text = "Champ" Then

            OppVitalsImageBox.Image = My.Resources.Champ

        ElseIf Me.OppVit.Text = "Azure+Champ" Then

            OppVitalsImageBox.Image = My.Resources.Enfieldchampv

        ElseIf Me.OppVit.Text = "DaimonUI Mini MOM" Then

            OppVitalsImageBox.Image = My.Resources.OppVitMOM

        ElseIf Me.OppVit.Text = "DaimonUI Mini SOM" Then

            OppVitalsImageBox.Image = My.Resources.OppVitSOM

        Else

            OppVitalsImageBox.Image = My.Resources.DefaultOpponentVitals

        End If

    End Sub

    Private Sub ToolBar_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolBar.SelectedIndexChanged

        'Display Image of bar

        If Me.ToolBar.Text = "Small Bar" Then

            ToolbarImageBox.Image = My.Resources.SmallBar

        ElseIf Me.ToolBar.Text = "Arty Bar, 0ne row" Then

            ToolbarImageBox.Image = My.Resources.Artybar1

        ElseIf Me.ToolBar.Text = "Arty Bar, Two Rows" Then

            ToolbarImageBox.Image = My.Resources.Artybar2

        ElseIf Me.ToolBar.Text = "Arty Bar, Three rows" Then

            ToolbarImageBox.Image = My.Resources.Artybar3

        ElseIf Me.ToolBar.Text = "Jackdaws" Then

            ToolbarImageBox.Image = My.Resources.JackdawsToolbar

        ElseIf Me.ToolBar.Text = "DaimonUI Universal MOM" Then

            ToolbarImageBox.Image = My.Resources.DaimonUIUniMOM

        ElseIf Me.ToolBar.Text = "DaimonUI Universal SOM" Then

            ToolbarImageBox.Image = My.Resources.DaimonUIUniSOM

        Else

            ToolbarImageBox.Image = My.Resources.DefaultToolbar

        End If

    End Sub

    Private Sub Minimap_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Minimap.SelectedIndexChanged

        'MiniMap Image

        If Me.Minimap.Text = "Modified1" Then

            MiniMapImageBox.Image = My.Resources.MiniMap

        ElseIf Me.Minimap.Text = "Modified2" Then

            MiniMapImageBox.Image = My.Resources.MiniMap2

        ElseIf Me.Minimap.Text = "DaimonUI" Then

            MiniMapImageBox.Image = My.Resources.dmnui_minimap

        Else

            MiniMapImageBox.Image = My.Resources.DefaultMap

        End If

    End Sub

    Private Sub About_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles About.Click

        Dim myForm As New About

        myForm.ShowDialog()

    End Sub

    Private Sub Beta_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Beta.CheckedChanged

        If Me.Beta.Checked = True Then

        Else

        End If

    End Sub

End Class