Version 1.1

SMBX Magic Patcher/App.config

@@ -1,6 +1,6 @@
-<?xml version="1.0" encoding="utf-8" ?>
+<?xml version="1.0" encoding="utf-8"?>
 <configuration>
     <startup>
-        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.2" />
+        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5"/>
     </startup>
 </configuration>

SMBX Magic Patcher/Form1.Designer.vb

@@ -1,6 +1,6 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
 Partial Class Form1
-    Inherits System.Windows.Forms.Form
+    Inherits DevComponents.DotNetBar.OfficeForm
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
     <System.Diagnostics.DebuggerNonUserCode()> _
@@ -22,20 +22,16 @@ Partial Class Form1
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
-        Me.TabControl1 = New System.Windows.Forms.TabControl()
-        Me.TabPage1 = New System.Windows.Forms.TabPage()
         Me.CircularProgress_Apply = New DevComponents.DotNetBar.Controls.CircularProgress()
         Me.LabelX14 = New DevComponents.DotNetBar.LabelX()
-        Me.Button_ApplyPatch = New System.Windows.Forms.Button()
         Me.LabelX4 = New DevComponents.DotNetBar.LabelX()
         Me.LabelX6 = New DevComponents.DotNetBar.LabelX()
         Me.ButtonX4 = New DevComponents.DotNetBar.ButtonX()
         Me.TextBoxX_PatchFileApply = New DevComponents.DotNetBar.Controls.TextBoxX()
         Me.ButtonX6 = New DevComponents.DotNetBar.ButtonX()
         Me.TextBoxX_OriginalLevelApply = New DevComponents.DotNetBar.Controls.TextBoxX()
-        Me.TabPage2 = New System.Windows.Forms.TabPage()
-        Me.CircularProgress_Create = New DevComponents.DotNetBar.Controls.CircularProgress()
         Me.LabelX15 = New DevComponents.DotNetBar.LabelX()
         Me.GroupBox1 = New System.Windows.Forms.GroupBox()
         Me.SwitchButton_Liquids = New DevComponents.DotNetBar.Controls.SwitchButton()
@@ -56,7 +52,6 @@ Partial Class Form1
         Me.SwitchButton_Graphics = New DevComponents.DotNetBar.Controls.SwitchButton()
         Me.CheckBoxX2 = New DevComponents.DotNetBar.Controls.CheckBoxX()
         Me.CheckBoxX1 = New DevComponents.DotNetBar.Controls.CheckBoxX()
-        Me.Button_CreatePatch = New System.Windows.Forms.Button()
         Me.LabelX3 = New DevComponents.DotNetBar.LabelX()
         Me.LabelX2 = New DevComponents.DotNetBar.LabelX()
         Me.LabelX1 = New DevComponents.DotNetBar.LabelX()
@@ -66,49 +61,31 @@ Partial Class Form1
         Me.ButtonX1 = New DevComponents.DotNetBar.ButtonX()
         Me.TextBoxX_PatchFileCreate = New DevComponents.DotNetBar.Controls.TextBoxX()
         Me.TextBoxX_OriginalLevelCreate = New DevComponents.DotNetBar.Controls.TextBoxX()
-        Me.TabControl1.SuspendLayout()
-        Me.TabPage1.SuspendLayout()
-        Me.TabPage2.SuspendLayout()
+        Me.SuperTooltip1 = New DevComponents.DotNetBar.SuperTooltip()
+        Me.StyleManager1 = New DevComponents.DotNetBar.StyleManager(Me.components)
+        Me.TabControl2 = New DevComponents.DotNetBar.TabControl()
+        Me.TabControlPanel1 = New DevComponents.DotNetBar.TabControlPanel()
+        Me.Button_ApplyPatch = New DevComponents.DotNetBar.ButtonX()
+        Me.TabItem1 = New DevComponents.DotNetBar.TabItem(Me.components)
+        Me.TabControlPanel2 = New DevComponents.DotNetBar.TabControlPanel()
+        Me.CircularProgress_Create = New DevComponents.DotNetBar.Controls.CircularProgress()
+        Me.Button_CreatePatch = New DevComponents.DotNetBar.ButtonX()
+        Me.TabItem2 = New DevComponents.DotNetBar.TabItem(Me.components)
         Me.GroupBox1.SuspendLayout()
+        CType(Me.TabControl2, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.TabControl2.SuspendLayout()
+        Me.TabControlPanel1.SuspendLayout()
+        Me.TabControlPanel2.SuspendLayout()
         Me.SuspendLayout()
         '
-        'TabControl1
-        '
-        Me.TabControl1.Controls.Add(Me.TabPage1)
-        Me.TabControl1.Controls.Add(Me.TabPage2)
-        Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill
-        Me.TabControl1.Location = New System.Drawing.Point(0, 0)
-        Me.TabControl1.Name = "TabControl1"
-        Me.TabControl1.SelectedIndex = 0
-        Me.TabControl1.Size = New System.Drawing.Size(352, 118)
-        Me.TabControl1.TabIndex = 0
-        '
-        'TabPage1
-        '
-        Me.TabPage1.Controls.Add(Me.CircularProgress_Apply)
-        Me.TabPage1.Controls.Add(Me.LabelX14)
-        Me.TabPage1.Controls.Add(Me.Button_ApplyPatch)
-        Me.TabPage1.Controls.Add(Me.LabelX4)
-        Me.TabPage1.Controls.Add(Me.LabelX6)
-        Me.TabPage1.Controls.Add(Me.ButtonX4)
-        Me.TabPage1.Controls.Add(Me.TextBoxX_PatchFileApply)
-        Me.TabPage1.Controls.Add(Me.ButtonX6)
-        Me.TabPage1.Controls.Add(Me.TextBoxX_OriginalLevelApply)
-        Me.TabPage1.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage1.Name = "TabPage1"
-        Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage1.Size = New System.Drawing.Size(344, 92)
-        Me.TabPage1.TabIndex = 0
-        Me.TabPage1.Text = "Apply Patch"
-        Me.TabPage1.UseVisualStyleBackColor = True
-        '
         'CircularProgress_Apply
         '
+        Me.CircularProgress_Apply.BackColor = System.Drawing.Color.Transparent
         '
         '
         '
         Me.CircularProgress_Apply.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.CircularProgress_Apply.Location = New System.Drawing.Point(6, 63)
+        Me.CircularProgress_Apply.Location = New System.Drawing.Point(4, 62)
         Me.CircularProgress_Apply.Name = "CircularProgress_Apply"
         Me.CircularProgress_Apply.ProgressBarType = DevComponents.DotNetBar.eCircularProgressType.Dot
         Me.CircularProgress_Apply.ProgressColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
@@ -118,45 +95,39 @@ Partial Class Form1
         '
         'LabelX14
         '
+        Me.LabelX14.BackColor = System.Drawing.Color.Transparent
         '
         '
         '
         Me.LabelX14.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.LabelX14.Location = New System.Drawing.Point(35, 63)
+        Me.LabelX14.Location = New System.Drawing.Point(33, 62)
         Me.LabelX14.Name = "LabelX14"
         Me.LabelX14.Size = New System.Drawing.Size(196, 23)
         Me.LabelX14.TabIndex = 1
         Me.LabelX14.Text = "<font color=""#2F3699"">Patching level. Please wait ...</font>"
         Me.LabelX14.Visible = False
         '
-        'Button_ApplyPatch
-        '
-        Me.Button_ApplyPatch.Location = New System.Drawing.Point(237, 63)
-        Me.Button_ApplyPatch.Name = "Button_ApplyPatch"
-        Me.Button_ApplyPatch.Size = New System.Drawing.Size(101, 23)
-        Me.Button_ApplyPatch.TabIndex = 40
-        Me.Button_ApplyPatch.Text = "Apply Patch!"
-        Me.Button_ApplyPatch.UseVisualStyleBackColor = True
-        '
         'LabelX4
         '
+        Me.LabelX4.BackColor = System.Drawing.Color.Transparent
         '
         '
         '
         Me.LabelX4.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.LabelX4.Location = New System.Drawing.Point(6, 34)
+        Me.LabelX4.Location = New System.Drawing.Point(4, 33)
         Me.LabelX4.Name = "LabelX4"
         Me.LabelX4.Size = New System.Drawing.Size(72, 23)
         Me.LabelX4.TabIndex = 39
-        Me.LabelX4.Text = "<font color=""#000000"">Patch file:</font>"
+        Me.LabelX4.Text = "<font color=""#000000"">Patch:</font>"
         '
         'LabelX6
         '
+        Me.LabelX6.BackColor = System.Drawing.Color.Transparent
         '
         '
         '
         Me.LabelX6.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.LabelX6.Location = New System.Drawing.Point(6, 5)
+        Me.LabelX6.Location = New System.Drawing.Point(4, 4)
         Me.LabelX6.Name = "LabelX6"
         Me.LabelX6.Size = New System.Drawing.Size(72, 23)
         Me.LabelX6.TabIndex = 37
@@ -166,27 +137,34 @@ Partial Class Form1
         '
         Me.ButtonX4.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
         Me.ButtonX4.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
-        Me.ButtonX4.Location = New System.Drawing.Point(305, 34)
+        Me.ButtonX4.FocusCuesEnabled = False
+        Me.ButtonX4.Location = New System.Drawing.Point(303, 33)
         Me.ButtonX4.Name = "ButtonX4"
         Me.ButtonX4.Size = New System.Drawing.Size(33, 23)
-        Me.ButtonX4.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.ButtonX4.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.ButtonX4, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Select the patch here.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.ButtonX4.Symbol = "58055"
+        Me.ButtonX4.SymbolColor = System.Drawing.Color.FromArgb(CType(CType(215, Byte), Integer), CType(CType(172, Byte), Integer), CType(CType(106, Byte), Integer))
         Me.ButtonX4.SymbolSet = DevComponents.DotNetBar.eSymbolSet.Material
-        Me.ButtonX4.SymbolSize = 15.0!
+        Me.ButtonX4.SymbolSize = 12.0!
         Me.ButtonX4.TabIndex = 36
         '
         'TextBoxX_PatchFileApply
         '
+        Me.TextBoxX_PatchFileApply.BackColor = System.Drawing.Color.White
         '
         '
         '
         Me.TextBoxX_PatchFileApply.Border.Class = "TextBoxBorder"
         Me.TextBoxX_PatchFileApply.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.TextBoxX_PatchFileApply.Location = New System.Drawing.Point(84, 36)
+        Me.TextBoxX_PatchFileApply.DisabledBackColor = System.Drawing.Color.White
+        Me.TextBoxX_PatchFileApply.ForeColor = System.Drawing.Color.Black
+        Me.TextBoxX_PatchFileApply.Location = New System.Drawing.Point(82, 35)
         Me.TextBoxX_PatchFileApply.Name = "TextBoxX_PatchFileApply"
         Me.TextBoxX_PatchFileApply.PreventEnterBeep = True
         Me.TextBoxX_PatchFileApply.ReadOnly = True
         Me.TextBoxX_PatchFileApply.Size = New System.Drawing.Size(215, 20)
+        Me.SuperTooltip1.SetSuperTooltip(Me.TextBoxX_PatchFileApply, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Select the patch here.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.TextBoxX_PatchFileApply.TabIndex = 35
         Me.TextBoxX_PatchFileApply.WatermarkBehavior = DevComponents.DotNetBar.eWatermarkBehavior.HideNonEmpty
         Me.TextBoxX_PatchFileApply.WatermarkText = "No file loaded!"
@@ -195,77 +173,46 @@ Partial Class Form1
         '
         Me.ButtonX6.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
         Me.ButtonX6.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
-        Me.ButtonX6.Location = New System.Drawing.Point(305, 5)
+        Me.ButtonX6.FocusCuesEnabled = False
+        Me.ButtonX6.Location = New System.Drawing.Point(303, 4)
         Me.ButtonX6.Name = "ButtonX6"
         Me.ButtonX6.Size = New System.Drawing.Size(33, 23)
-        Me.ButtonX6.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.ButtonX6.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.ButtonX6, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Select here your level on wich you would apply the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.ButtonX6.Symbol = "58055"
+        Me.ButtonX6.SymbolColor = System.Drawing.Color.FromArgb(CType(CType(215, Byte), Integer), CType(CType(172, Byte), Integer), CType(CType(106, Byte), Integer))
         Me.ButtonX6.SymbolSet = DevComponents.DotNetBar.eSymbolSet.Material
-        Me.ButtonX6.SymbolSize = 15.0!
+        Me.ButtonX6.SymbolSize = 12.0!
         Me.ButtonX6.TabIndex = 33
         '
         'TextBoxX_OriginalLevelApply
         '
+        Me.TextBoxX_OriginalLevelApply.BackColor = System.Drawing.Color.White
         '
         '
         '
         Me.TextBoxX_OriginalLevelApply.Border.Class = "TextBoxBorder"
         Me.TextBoxX_OriginalLevelApply.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.TextBoxX_OriginalLevelApply.Location = New System.Drawing.Point(84, 7)
+        Me.TextBoxX_OriginalLevelApply.DisabledBackColor = System.Drawing.Color.White
+        Me.TextBoxX_OriginalLevelApply.ForeColor = System.Drawing.Color.Black
+        Me.TextBoxX_OriginalLevelApply.Location = New System.Drawing.Point(82, 6)
         Me.TextBoxX_OriginalLevelApply.Name = "TextBoxX_OriginalLevelApply"
         Me.TextBoxX_OriginalLevelApply.PreventEnterBeep = True
         Me.TextBoxX_OriginalLevelApply.ReadOnly = True
         Me.TextBoxX_OriginalLevelApply.Size = New System.Drawing.Size(215, 20)
+        Me.SuperTooltip1.SetSuperTooltip(Me.TextBoxX_OriginalLevelApply, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Select here your level on wich you would apply the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.TextBoxX_OriginalLevelApply.TabIndex = 31
         Me.TextBoxX_OriginalLevelApply.WatermarkBehavior = DevComponents.DotNetBar.eWatermarkBehavior.HideNonEmpty
         Me.TextBoxX_OriginalLevelApply.WatermarkText = "No file loaded!"
         '
-        'TabPage2
-        '
-        Me.TabPage2.Controls.Add(Me.CircularProgress_Create)
-        Me.TabPage2.Controls.Add(Me.LabelX15)
-        Me.TabPage2.Controls.Add(Me.GroupBox1)
-        Me.TabPage2.Controls.Add(Me.CheckBoxX2)
-        Me.TabPage2.Controls.Add(Me.CheckBoxX1)
-        Me.TabPage2.Controls.Add(Me.Button_CreatePatch)
-        Me.TabPage2.Controls.Add(Me.LabelX3)
-        Me.TabPage2.Controls.Add(Me.LabelX2)
-        Me.TabPage2.Controls.Add(Me.LabelX1)
-        Me.TabPage2.Controls.Add(Me.ButtonX3)
-        Me.TabPage2.Controls.Add(Me.TextBoxX_ModifiedLevel)
-        Me.TabPage2.Controls.Add(Me.ButtonX2)
-        Me.TabPage2.Controls.Add(Me.ButtonX1)
-        Me.TabPage2.Controls.Add(Me.TextBoxX_PatchFileCreate)
-        Me.TabPage2.Controls.Add(Me.TextBoxX_OriginalLevelCreate)
-        Me.TabPage2.Location = New System.Drawing.Point(4, 22)
-        Me.TabPage2.Name = "TabPage2"
-        Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage2.Size = New System.Drawing.Size(344, 92)
-        Me.TabPage2.TabIndex = 1
-        Me.TabPage2.Text = "Create Patch"
-        Me.TabPage2.UseVisualStyleBackColor = True
-        '
-        'CircularProgress_Create
-        '
-        '
-        '
-        '
-        Me.CircularProgress_Create.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.CircularProgress_Create.Location = New System.Drawing.Point(6, 260)
-        Me.CircularProgress_Create.Name = "CircularProgress_Create"
-        Me.CircularProgress_Create.ProgressBarType = DevComponents.DotNetBar.eCircularProgressType.Dot
-        Me.CircularProgress_Create.ProgressColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
-        Me.CircularProgress_Create.Size = New System.Drawing.Size(23, 23)
-        Me.CircularProgress_Create.Style = DevComponents.DotNetBar.eDotNetBarStyle.OfficeXP
-        Me.CircularProgress_Create.TabIndex = 42
-        '
         'LabelX15
         '
+        Me.LabelX15.BackColor = System.Drawing.Color.Transparent
         '
         '
         '
         Me.LabelX15.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.LabelX15.Location = New System.Drawing.Point(35, 260)
+        Me.LabelX15.Location = New System.Drawing.Point(33, 259)
         Me.LabelX15.Name = "LabelX15"
         Me.LabelX15.Size = New System.Drawing.Size(196, 23)
         Me.LabelX15.TabIndex = 33
@@ -274,6 +221,7 @@ Partial Class Form1
         '
         'GroupBox1
         '
+        Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
         Me.GroupBox1.Controls.Add(Me.SwitchButton_Liquids)
         Me.GroupBox1.Controls.Add(Me.LabelX8)
         Me.GroupBox1.Controls.Add(Me.LabelX10)
@@ -290,9 +238,10 @@ Partial Class Form1
         Me.GroupBox1.Controls.Add(Me.LabelX7)
         Me.GroupBox1.Controls.Add(Me.SwitchButton_Configs)
         Me.GroupBox1.Controls.Add(Me.SwitchButton_Graphics)
-        Me.GroupBox1.Location = New System.Drawing.Point(6, 118)
+        Me.GroupBox1.Location = New System.Drawing.Point(4, 117)
         Me.GroupBox1.Name = "GroupBox1"
         Me.GroupBox1.Size = New System.Drawing.Size(330, 136)
+        Me.SuperTooltip1.SetSuperTooltip(Me.GroupBox1, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Check which things you would include in the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.GroupBox1.TabIndex = 1
         Me.GroupBox1.TabStop = False
         Me.GroupBox1.Text = "Settings"
@@ -307,12 +256,17 @@ Partial Class Form1
         Me.SwitchButton_Liquids.Location = New System.Drawing.Point(103, 48)
         Me.SwitchButton_Liquids.Name = "SwitchButton_Liquids"
         Me.SwitchButton_Liquids.OffText = "No"
+        Me.SwitchButton_Liquids.OffTextColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.SwitchButton_Liquids.OnBackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(195, Byte), Integer), CType(CType(80, Byte), Integer))
         Me.SwitchButton_Liquids.OnText = "Yes"
+        Me.SwitchButton_Liquids.OnTextColor = System.Drawing.Color.FromArgb(CType(CType(21, Byte), Integer), CType(CType(66, Byte), Integer), CType(CType(139, Byte), Integer))
         Me.SwitchButton_Liquids.Size = New System.Drawing.Size(57, 23)
         Me.SwitchButton_Liquids.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.SwitchButton_Liquids, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "If this is ""Yes"" then all Liquids will include in the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
+        Me.SwitchButton_Liquids.SwitchBackColor = System.Drawing.Color.FromArgb(CType(CType(147, Byte), Integer), CType(CType(164, Byte), Integer), CType(CType(181, Byte), Integer))
+        Me.SwitchButton_Liquids.SwitchBorderColor = System.Drawing.Color.FromArgb(CType(CType(69, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(107, Byte), Integer))
+        Me.SwitchButton_Liquids.SwitchWidth = 16
         Me.SwitchButton_Liquids.TabIndex = 49
-        Me.SwitchButton_Liquids.Value = True
-        Me.SwitchButton_Liquids.ValueObject = "Y"
         '
         'LabelX8
         '
@@ -348,9 +302,16 @@ Partial Class Form1
         Me.SwitchButton_Layers.Location = New System.Drawing.Point(267, 106)
         Me.SwitchButton_Layers.Name = "SwitchButton_Layers"
         Me.SwitchButton_Layers.OffText = "No"
+        Me.SwitchButton_Layers.OffTextColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.SwitchButton_Layers.OnBackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(195, Byte), Integer), CType(CType(80, Byte), Integer))
         Me.SwitchButton_Layers.OnText = "Yes"
+        Me.SwitchButton_Layers.OnTextColor = System.Drawing.Color.FromArgb(CType(CType(21, Byte), Integer), CType(CType(66, Byte), Integer), CType(CType(139, Byte), Integer))
         Me.SwitchButton_Layers.Size = New System.Drawing.Size(57, 23)
         Me.SwitchButton_Layers.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.SwitchButton_Layers, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "If this is ""Yes"" then all Layers will include in the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
+        Me.SwitchButton_Layers.SwitchBackColor = System.Drawing.Color.FromArgb(CType(CType(147, Byte), Integer), CType(CType(164, Byte), Integer), CType(CType(181, Byte), Integer))
+        Me.SwitchButton_Layers.SwitchBorderColor = System.Drawing.Color.FromArgb(CType(CType(69, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(107, Byte), Integer))
+        Me.SwitchButton_Layers.SwitchWidth = 16
         Me.SwitchButton_Layers.TabIndex = 48
         Me.SwitchButton_Layers.Value = True
         Me.SwitchButton_Layers.ValueObject = "Y"
@@ -365,9 +326,16 @@ Partial Class Form1
         Me.SwitchButton_Scripts.Location = New System.Drawing.Point(267, 19)
         Me.SwitchButton_Scripts.Name = "SwitchButton_Scripts"
         Me.SwitchButton_Scripts.OffText = "No"
+        Me.SwitchButton_Scripts.OffTextColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.SwitchButton_Scripts.OnBackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(195, Byte), Integer), CType(CType(80, Byte), Integer))
         Me.SwitchButton_Scripts.OnText = "Yes"
+        Me.SwitchButton_Scripts.OnTextColor = System.Drawing.Color.FromArgb(CType(CType(21, Byte), Integer), CType(CType(66, Byte), Integer), CType(CType(139, Byte), Integer))
         Me.SwitchButton_Scripts.Size = New System.Drawing.Size(57, 23)
         Me.SwitchButton_Scripts.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.SwitchButton_Scripts, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "If this is ""Yes"" then all Scripts will include in the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
+        Me.SwitchButton_Scripts.SwitchBackColor = System.Drawing.Color.FromArgb(CType(CType(147, Byte), Integer), CType(CType(164, Byte), Integer), CType(CType(181, Byte), Integer))
+        Me.SwitchButton_Scripts.SwitchBorderColor = System.Drawing.Color.FromArgb(CType(CType(69, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(107, Byte), Integer))
+        Me.SwitchButton_Scripts.SwitchWidth = 16
         Me.SwitchButton_Scripts.TabIndex = 42
         Me.SwitchButton_Scripts.Value = True
         Me.SwitchButton_Scripts.ValueObject = "Y"
@@ -406,9 +374,16 @@ Partial Class Form1
         Me.SwitchButton_Variables.Location = New System.Drawing.Point(267, 77)
         Me.SwitchButton_Variables.Name = "SwitchButton_Variables"
         Me.SwitchButton_Variables.OffText = "No"
+        Me.SwitchButton_Variables.OffTextColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.SwitchButton_Variables.OnBackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(195, Byte), Integer), CType(CType(80, Byte), Integer))
         Me.SwitchButton_Variables.OnText = "Yes"
+        Me.SwitchButton_Variables.OnTextColor = System.Drawing.Color.FromArgb(CType(CType(21, Byte), Integer), CType(CType(66, Byte), Integer), CType(CType(139, Byte), Integer))
         Me.SwitchButton_Variables.Size = New System.Drawing.Size(57, 23)
         Me.SwitchButton_Variables.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.SwitchButton_Variables, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "If this is ""Yes"" then all Local Variables will include in the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
+        Me.SwitchButton_Variables.SwitchBackColor = System.Drawing.Color.FromArgb(CType(CType(147, Byte), Integer), CType(CType(164, Byte), Integer), CType(CType(181, Byte), Integer))
+        Me.SwitchButton_Variables.SwitchBorderColor = System.Drawing.Color.FromArgb(CType(CType(69, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(107, Byte), Integer))
+        Me.SwitchButton_Variables.SwitchWidth = 16
         Me.SwitchButton_Variables.TabIndex = 46
         Me.SwitchButton_Variables.Value = True
         Me.SwitchButton_Variables.ValueObject = "Y"
@@ -423,9 +398,16 @@ Partial Class Form1
         Me.SwitchButton_Events.Location = New System.Drawing.Point(267, 48)
         Me.SwitchButton_Events.Name = "SwitchButton_Events"
         Me.SwitchButton_Events.OffText = "No"
+        Me.SwitchButton_Events.OffTextColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.SwitchButton_Events.OnBackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(195, Byte), Integer), CType(CType(80, Byte), Integer))
         Me.SwitchButton_Events.OnText = "Yes"
+        Me.SwitchButton_Events.OnTextColor = System.Drawing.Color.FromArgb(CType(CType(21, Byte), Integer), CType(CType(66, Byte), Integer), CType(CType(139, Byte), Integer))
         Me.SwitchButton_Events.Size = New System.Drawing.Size(57, 23)
         Me.SwitchButton_Events.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.SwitchButton_Events, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "If this is ""Yes"" then all Events will include in the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
+        Me.SwitchButton_Events.SwitchBackColor = System.Drawing.Color.FromArgb(CType(CType(147, Byte), Integer), CType(CType(164, Byte), Integer), CType(CType(181, Byte), Integer))
+        Me.SwitchButton_Events.SwitchBorderColor = System.Drawing.Color.FromArgb(CType(CType(69, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(107, Byte), Integer))
+        Me.SwitchButton_Events.SwitchWidth = 16
         Me.SwitchButton_Events.TabIndex = 44
         Me.SwitchButton_Events.Value = True
         Me.SwitchButton_Events.ValueObject = "Y"
@@ -464,12 +446,18 @@ Partial Class Form1
         Me.SwitchButton_BlocksEtc.Location = New System.Drawing.Point(103, 19)
         Me.SwitchButton_BlocksEtc.Name = "SwitchButton_BlocksEtc"
         Me.SwitchButton_BlocksEtc.OffText = "No"
+        Me.SwitchButton_BlocksEtc.OffTextColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.SwitchButton_BlocksEtc.OnBackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(195, Byte), Integer), CType(CType(80, Byte), Integer))
         Me.SwitchButton_BlocksEtc.OnText = "Yes"
+        Me.SwitchButton_BlocksEtc.OnTextColor = System.Drawing.Color.FromArgb(CType(CType(21, Byte), Integer), CType(CType(66, Byte), Integer), CType(CType(139, Byte), Integer))
         Me.SwitchButton_BlocksEtc.Size = New System.Drawing.Size(57, 23)
         Me.SwitchButton_BlocksEtc.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.SwitchButton_BlocksEtc, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "If this is ""Yes"" then all Blocks, NPC's and Backgrounds will include in the patch" &
+            ".", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
+        Me.SwitchButton_BlocksEtc.SwitchBackColor = System.Drawing.Color.FromArgb(CType(CType(147, Byte), Integer), CType(CType(164, Byte), Integer), CType(CType(181, Byte), Integer))
+        Me.SwitchButton_BlocksEtc.SwitchBorderColor = System.Drawing.Color.FromArgb(CType(CType(69, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(107, Byte), Integer))
+        Me.SwitchButton_BlocksEtc.SwitchWidth = 16
         Me.SwitchButton_BlocksEtc.TabIndex = 34
-        Me.SwitchButton_BlocksEtc.Value = True
-        Me.SwitchButton_BlocksEtc.ValueObject = "Y"
         '
         'LabelX9
         '
@@ -505,9 +493,17 @@ Partial Class Form1
         Me.SwitchButton_Configs.Location = New System.Drawing.Point(103, 106)
         Me.SwitchButton_Configs.Name = "SwitchButton_Configs"
         Me.SwitchButton_Configs.OffText = "No"
+        Me.SwitchButton_Configs.OffTextColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.SwitchButton_Configs.OnBackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(195, Byte), Integer), CType(CType(80, Byte), Integer))
         Me.SwitchButton_Configs.OnText = "Yes"
+        Me.SwitchButton_Configs.OnTextColor = System.Drawing.Color.FromArgb(CType(CType(21, Byte), Integer), CType(CType(66, Byte), Integer), CType(CType(139, Byte), Integer))
         Me.SwitchButton_Configs.Size = New System.Drawing.Size(57, 23)
         Me.SwitchButton_Configs.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.SwitchButton_Configs, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "If this is ""Yes"" then all custom configrations (like Custom NPC Configs) will inc" &
+            "lude in the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
+        Me.SwitchButton_Configs.SwitchBackColor = System.Drawing.Color.FromArgb(CType(CType(147, Byte), Integer), CType(CType(164, Byte), Integer), CType(CType(181, Byte), Integer))
+        Me.SwitchButton_Configs.SwitchBorderColor = System.Drawing.Color.FromArgb(CType(CType(69, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(107, Byte), Integer))
+        Me.SwitchButton_Configs.SwitchWidth = 16
         Me.SwitchButton_Configs.TabIndex = 38
         Me.SwitchButton_Configs.Value = True
         Me.SwitchButton_Configs.ValueObject = "Y"
@@ -522,30 +518,40 @@ Partial Class Form1
         Me.SwitchButton_Graphics.Location = New System.Drawing.Point(103, 77)
         Me.SwitchButton_Graphics.Name = "SwitchButton_Graphics"
         Me.SwitchButton_Graphics.OffText = "No"
+        Me.SwitchButton_Graphics.OffTextColor = System.Drawing.Color.FromArgb(CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.SwitchButton_Graphics.OnBackColor = System.Drawing.Color.FromArgb(CType(CType(139, Byte), Integer), CType(CType(195, Byte), Integer), CType(CType(80, Byte), Integer))
         Me.SwitchButton_Graphics.OnText = "Yes"
+        Me.SwitchButton_Graphics.OnTextColor = System.Drawing.Color.FromArgb(CType(CType(21, Byte), Integer), CType(CType(66, Byte), Integer), CType(CType(139, Byte), Integer))
         Me.SwitchButton_Graphics.Size = New System.Drawing.Size(57, 23)
         Me.SwitchButton_Graphics.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.SwitchButton_Graphics, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "If this is ""Yes"" then all custom graphics will include in the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
+        Me.SwitchButton_Graphics.SwitchBackColor = System.Drawing.Color.FromArgb(CType(CType(147, Byte), Integer), CType(CType(164, Byte), Integer), CType(CType(181, Byte), Integer))
+        Me.SwitchButton_Graphics.SwitchBorderColor = System.Drawing.Color.FromArgb(CType(CType(69, Byte), Integer), CType(CType(85, Byte), Integer), CType(CType(107, Byte), Integer))
+        Me.SwitchButton_Graphics.SwitchWidth = 16
         Me.SwitchButton_Graphics.TabIndex = 36
         Me.SwitchButton_Graphics.Value = True
         Me.SwitchButton_Graphics.ValueObject = "Y"
         '
         'CheckBoxX2
         '
+        Me.CheckBoxX2.BackColor = System.Drawing.Color.Transparent
         '
         '
         '
         Me.CheckBoxX2.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
         Me.CheckBoxX2.CheckBoxStyle = DevComponents.DotNetBar.eCheckBoxStyle.RadioButton
         Me.CheckBoxX2.FocusCuesEnabled = False
-        Me.CheckBoxX2.Location = New System.Drawing.Point(199, 33)
+        Me.CheckBoxX2.Location = New System.Drawing.Point(197, 32)
         Me.CheckBoxX2.Name = "CheckBoxX2"
         Me.CheckBoxX2.Size = New System.Drawing.Size(100, 23)
         Me.CheckBoxX2.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.SuperTooltip1.SetSuperTooltip(Me.CheckBoxX2, New DevComponents.DotNetBar.SuperTooltipInfo("", "", resources.GetString("CheckBoxX2.SuperTooltip"), Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.CheckBoxX2.TabIndex = 32
         Me.CheckBoxX2.Text = "use custom level"
         '
         'CheckBoxX1
         '
+        Me.CheckBoxX1.BackColor = System.Drawing.Color.Transparent
         '
         '
         '
@@ -555,41 +561,35 @@ Partial Class Form1
         Me.CheckBoxX1.CheckState = System.Windows.Forms.CheckState.Checked
         Me.CheckBoxX1.CheckValue = "Y"
         Me.CheckBoxX1.FocusCuesEnabled = False
-        Me.CheckBoxX1.Location = New System.Drawing.Point(84, 33)
+        Me.CheckBoxX1.Location = New System.Drawing.Point(82, 32)
         Me.CheckBoxX1.Name = "CheckBoxX1"
         Me.CheckBoxX1.Size = New System.Drawing.Size(100, 23)
         Me.CheckBoxX1.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.SuperTooltip1.SetSuperTooltip(Me.CheckBoxX1, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Use this option, if you would like to create a patch of your whole level.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.CheckBoxX1.TabIndex = 31
         Me.CheckBoxX1.Text = "use empty level"
         '
-        'Button_CreatePatch
-        '
-        Me.Button_CreatePatch.Location = New System.Drawing.Point(237, 260)
-        Me.Button_CreatePatch.Name = "Button_CreatePatch"
-        Me.Button_CreatePatch.Size = New System.Drawing.Size(101, 23)
-        Me.Button_CreatePatch.TabIndex = 30
-        Me.Button_CreatePatch.Text = "Create Patch!"
-        Me.Button_CreatePatch.UseVisualStyleBackColor = True
-        '
         'LabelX3
         '
+        Me.LabelX3.BackColor = System.Drawing.Color.Transparent
         '
         '
         '
         Me.LabelX3.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.LabelX3.Location = New System.Drawing.Point(6, 89)
+        Me.LabelX3.Location = New System.Drawing.Point(4, 88)
         Me.LabelX3.Name = "LabelX3"
         Me.LabelX3.Size = New System.Drawing.Size(72, 23)
         Me.LabelX3.TabIndex = 29
-        Me.LabelX3.Text = "<font color=""#000000"">Patch file:</font>"
+        Me.LabelX3.Text = "<font color=""#000000"">Save as:</font>"
         '
         'LabelX2
         '
+        Me.LabelX2.BackColor = System.Drawing.Color.Transparent
         '
         '
         '
         Me.LabelX2.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.LabelX2.Location = New System.Drawing.Point(6, 60)
+        Me.LabelX2.Location = New System.Drawing.Point(4, 59)
         Me.LabelX2.Name = "LabelX2"
         Me.LabelX2.Size = New System.Drawing.Size(72, 23)
         Me.LabelX2.TabIndex = 28
@@ -597,11 +597,12 @@ Partial Class Form1
         '
         'LabelX1
         '
+        Me.LabelX1.BackColor = System.Drawing.Color.Transparent
         '
         '
         '
         Me.LabelX1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.LabelX1.Location = New System.Drawing.Point(6, 5)
+        Me.LabelX1.Location = New System.Drawing.Point(4, 4)
         Me.LabelX1.Name = "LabelX1"
         Me.LabelX1.Size = New System.Drawing.Size(72, 23)
         Me.LabelX1.TabIndex = 27
@@ -611,27 +612,34 @@ Partial Class Form1
         '
         Me.ButtonX3.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
         Me.ButtonX3.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
-        Me.ButtonX3.Location = New System.Drawing.Point(305, 60)
+        Me.ButtonX3.FocusCuesEnabled = False
+        Me.ButtonX3.Location = New System.Drawing.Point(303, 59)
         Me.ButtonX3.Name = "ButtonX3"
         Me.ButtonX3.Size = New System.Drawing.Size(33, 23)
-        Me.ButtonX3.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.ButtonX3.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.ButtonX3, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Open here your level with the feautures wich should be in the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.ButtonX3.Symbol = "58055"
+        Me.ButtonX3.SymbolColor = System.Drawing.Color.FromArgb(CType(CType(215, Byte), Integer), CType(CType(172, Byte), Integer), CType(CType(106, Byte), Integer))
         Me.ButtonX3.SymbolSet = DevComponents.DotNetBar.eSymbolSet.Material
-        Me.ButtonX3.SymbolSize = 15.0!
+        Me.ButtonX3.SymbolSize = 12.0!
         Me.ButtonX3.TabIndex = 26
         '
         'TextBoxX_ModifiedLevel
         '
+        Me.TextBoxX_ModifiedLevel.BackColor = System.Drawing.Color.White
         '
         '
         '
         Me.TextBoxX_ModifiedLevel.Border.Class = "TextBoxBorder"
         Me.TextBoxX_ModifiedLevel.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.TextBoxX_ModifiedLevel.Location = New System.Drawing.Point(84, 62)
+        Me.TextBoxX_ModifiedLevel.DisabledBackColor = System.Drawing.Color.White
+        Me.TextBoxX_ModifiedLevel.ForeColor = System.Drawing.Color.Black
+        Me.TextBoxX_ModifiedLevel.Location = New System.Drawing.Point(82, 61)
         Me.TextBoxX_ModifiedLevel.Name = "TextBoxX_ModifiedLevel"
         Me.TextBoxX_ModifiedLevel.PreventEnterBeep = True
         Me.TextBoxX_ModifiedLevel.ReadOnly = True
         Me.TextBoxX_ModifiedLevel.Size = New System.Drawing.Size(215, 20)
+        Me.SuperTooltip1.SetSuperTooltip(Me.TextBoxX_ModifiedLevel, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Open here your level with the feautures wich should be in the patch.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.TextBoxX_ModifiedLevel.TabIndex = 25
         Me.TextBoxX_ModifiedLevel.WatermarkBehavior = DevComponents.DotNetBar.eWatermarkBehavior.HideNonEmpty
         Me.TextBoxX_ModifiedLevel.WatermarkText = "No file loaded!"
@@ -640,13 +648,16 @@ Partial Class Form1
         '
         Me.ButtonX2.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
         Me.ButtonX2.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
-        Me.ButtonX2.Location = New System.Drawing.Point(305, 89)
+        Me.ButtonX2.FocusCuesEnabled = False
+        Me.ButtonX2.Location = New System.Drawing.Point(303, 88)
         Me.ButtonX2.Name = "ButtonX2"
         Me.ButtonX2.Size = New System.Drawing.Size(33, 23)
-        Me.ButtonX2.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.ButtonX2.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.ButtonX2, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Select here where the patch file should be saved.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.ButtonX2.Symbol = "57697"
+        Me.ButtonX2.SymbolColor = System.Drawing.Color.FromArgb(CType(CType(215, Byte), Integer), CType(CType(172, Byte), Integer), CType(CType(106, Byte), Integer))
         Me.ButtonX2.SymbolSet = DevComponents.DotNetBar.eSymbolSet.Material
-        Me.ButtonX2.SymbolSize = 15.0!
+        Me.ButtonX2.SymbolSize = 12.0!
         Me.ButtonX2.TabIndex = 24
         '
         'ButtonX1
@@ -654,79 +665,229 @@ Partial Class Form1
         Me.ButtonX1.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
         Me.ButtonX1.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
         Me.ButtonX1.Enabled = False
-        Me.ButtonX1.Location = New System.Drawing.Point(305, 5)
+        Me.ButtonX1.FocusCuesEnabled = False
+        Me.ButtonX1.Location = New System.Drawing.Point(303, 4)
         Me.ButtonX1.Name = "ButtonX1"
         Me.ButtonX1.Size = New System.Drawing.Size(33, 23)
-        Me.ButtonX1.Style = DevComponents.DotNetBar.eDotNetBarStyle.VS2005
+        Me.ButtonX1.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.SuperTooltip1.SetSuperTooltip(Me.ButtonX1, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Open the ""without feauture"" level here.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.ButtonX1.Symbol = "58055"
+        Me.ButtonX1.SymbolColor = System.Drawing.Color.FromArgb(CType(CType(215, Byte), Integer), CType(CType(172, Byte), Integer), CType(CType(106, Byte), Integer))
         Me.ButtonX1.SymbolSet = DevComponents.DotNetBar.eSymbolSet.Material
-        Me.ButtonX1.SymbolSize = 15.0!
+        Me.ButtonX1.SymbolSize = 12.0!
         Me.ButtonX1.TabIndex = 23
         '
         'TextBoxX_PatchFileCreate
         '
+        Me.TextBoxX_PatchFileCreate.BackColor = System.Drawing.Color.White
         '
         '
         '
         Me.TextBoxX_PatchFileCreate.Border.Class = "TextBoxBorder"
         Me.TextBoxX_PatchFileCreate.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
-        Me.TextBoxX_PatchFileCreate.Location = New System.Drawing.Point(84, 91)
+        Me.TextBoxX_PatchFileCreate.DisabledBackColor = System.Drawing.Color.White
+        Me.TextBoxX_PatchFileCreate.ForeColor = System.Drawing.Color.Black
+        Me.TextBoxX_PatchFileCreate.Location = New System.Drawing.Point(82, 90)
         Me.TextBoxX_PatchFileCreate.Name = "TextBoxX_PatchFileCreate"
         Me.TextBoxX_PatchFileCreate.PreventEnterBeep = True
         Me.TextBoxX_PatchFileCreate.ReadOnly = True
         Me.TextBoxX_PatchFileCreate.Size = New System.Drawing.Size(215, 20)
+        Me.SuperTooltip1.SetSuperTooltip(Me.TextBoxX_PatchFileCreate, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Select here where the patch file should be saved.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.TextBoxX_PatchFileCreate.TabIndex = 22
         Me.TextBoxX_PatchFileCreate.WatermarkBehavior = DevComponents.DotNetBar.eWatermarkBehavior.HideNonEmpty
         Me.TextBoxX_PatchFileCreate.WatermarkText = "No file loaded!"
         '
         'TextBoxX_OriginalLevelCreate
         '
+        Me.TextBoxX_OriginalLevelCreate.BackColor = System.Drawing.Color.White
         '
         '
         '
         Me.TextBoxX_OriginalLevelCreate.Border.Class = "TextBoxBorder"
         Me.TextBoxX_OriginalLevelCreate.Border.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.TextBoxX_OriginalLevelCreate.DisabledBackColor = System.Drawing.Color.White
         Me.TextBoxX_OriginalLevelCreate.Enabled = False
-        Me.TextBoxX_OriginalLevelCreate.Location = New System.Drawing.Point(84, 7)
+        Me.TextBoxX_OriginalLevelCreate.ForeColor = System.Drawing.Color.Black
+        Me.TextBoxX_OriginalLevelCreate.Location = New System.Drawing.Point(82, 6)
         Me.TextBoxX_OriginalLevelCreate.Name = "TextBoxX_OriginalLevelCreate"
         Me.TextBoxX_OriginalLevelCreate.PreventEnterBeep = True
         Me.TextBoxX_OriginalLevelCreate.ReadOnly = True
         Me.TextBoxX_OriginalLevelCreate.Size = New System.Drawing.Size(215, 20)
+        Me.SuperTooltip1.SetSuperTooltip(Me.TextBoxX_OriginalLevelCreate, New DevComponents.DotNetBar.SuperTooltipInfo("", "", "Open the ""without feauture"" level here.", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.System, False, False, New System.Drawing.Size(0, 0)))
         Me.TextBoxX_OriginalLevelCreate.TabIndex = 21
         Me.TextBoxX_OriginalLevelCreate.WatermarkBehavior = DevComponents.DotNetBar.eWatermarkBehavior.HideNonEmpty
         Me.TextBoxX_OriginalLevelCreate.WatermarkText = "No file loaded!"
         '
+        'SuperTooltip1
+        '
+        Me.SuperTooltip1.DefaultTooltipSettings = New DevComponents.DotNetBar.SuperTooltipInfo("", "", "", Nothing, Nothing, DevComponents.DotNetBar.eTooltipColor.Gray)
+        Me.SuperTooltip1.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
+        '
+        'StyleManager1
+        '
+        Me.StyleManager1.ManagerStyle = DevComponents.DotNetBar.eStyle.Metro
+        Me.StyleManager1.MetroColorParameters = New DevComponents.DotNetBar.Metro.ColorTables.MetroColorGeneratorParameters(System.Drawing.Color.White, System.Drawing.Color.FromArgb(CType(CType(43, Byte), Integer), CType(CType(87, Byte), Integer), CType(CType(154, Byte), Integer)))
+        '
+        'TabControl2
+        '
+        Me.TabControl2.BackColor = System.Drawing.Color.White
+        Me.TabControl2.CanReorderTabs = True
+        Me.TabControl2.Controls.Add(Me.TabControlPanel1)
+        Me.TabControl2.Controls.Add(Me.TabControlPanel2)
+        Me.TabControl2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TabControl2.ForeColor = System.Drawing.Color.Black
+        Me.TabControl2.Location = New System.Drawing.Point(0, 0)
+        Me.TabControl2.Name = "TabControl2"
+        Me.TabControl2.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
+        Me.TabControl2.SelectedTabIndex = 0
+        Me.TabControl2.Size = New System.Drawing.Size(342, 118)
+        Me.TabControl2.Style = DevComponents.DotNetBar.eTabStripStyle.Metro
+        Me.TabControl2.TabIndex = 1
+        Me.TabControl2.TabLayoutType = DevComponents.DotNetBar.eTabLayoutType.FixedWithNavigationBox
+        Me.TabControl2.Tabs.Add(Me.TabItem1)
+        Me.TabControl2.Tabs.Add(Me.TabItem2)
+        Me.TabControl2.Text = "TabControl2"
+        '
+        'TabControlPanel1
+        '
+        Me.TabControlPanel1.Controls.Add(Me.CircularProgress_Apply)
+        Me.TabControlPanel1.Controls.Add(Me.ButtonX6)
+        Me.TabControlPanel1.Controls.Add(Me.ButtonX4)
+        Me.TabControlPanel1.Controls.Add(Me.LabelX6)
+        Me.TabControlPanel1.Controls.Add(Me.LabelX4)
+        Me.TabControlPanel1.Controls.Add(Me.LabelX14)
+        Me.TabControlPanel1.Controls.Add(Me.TextBoxX_PatchFileApply)
+        Me.TabControlPanel1.Controls.Add(Me.TextBoxX_OriginalLevelApply)
+        Me.TabControlPanel1.Controls.Add(Me.Button_ApplyPatch)
+        Me.TabControlPanel1.DisabledBackColor = System.Drawing.Color.Empty
+        Me.TabControlPanel1.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TabControlPanel1.Location = New System.Drawing.Point(0, 27)
+        Me.TabControlPanel1.Name = "TabControlPanel1"
+        Me.TabControlPanel1.Padding = New System.Windows.Forms.Padding(1)
+        Me.TabControlPanel1.Size = New System.Drawing.Size(342, 91)
+        Me.TabControlPanel1.Style.BackColor1.Color = System.Drawing.Color.White
+        Me.TabControlPanel1.Style.Border = DevComponents.DotNetBar.eBorderType.SingleLine
+        Me.TabControlPanel1.Style.BorderColor.Color = System.Drawing.Color.FromArgb(CType(CType(211, Byte), Integer), CType(CType(211, Byte), Integer), CType(CType(211, Byte), Integer))
+        Me.TabControlPanel1.Style.BorderSide = CType(((DevComponents.DotNetBar.eBorderSide.Left Or DevComponents.DotNetBar.eBorderSide.Right) _
+            Or DevComponents.DotNetBar.eBorderSide.Bottom), DevComponents.DotNetBar.eBorderSide)
+        Me.TabControlPanel1.Style.GradientAngle = 90
+        Me.TabControlPanel1.TabIndex = 1
+        Me.TabControlPanel1.TabItem = Me.TabItem1
+        '
+        'Button_ApplyPatch
+        '
+        Me.Button_ApplyPatch.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
+        Me.Button_ApplyPatch.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
+        Me.Button_ApplyPatch.FocusCuesEnabled = False
+        Me.Button_ApplyPatch.Location = New System.Drawing.Point(235, 62)
+        Me.Button_ApplyPatch.Name = "Button_ApplyPatch"
+        Me.Button_ApplyPatch.Size = New System.Drawing.Size(101, 23)
+        Me.Button_ApplyPatch.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.Button_ApplyPatch.TabIndex = 42
+        Me.Button_ApplyPatch.Text = "Apply Patch!"
+        '
+        'TabItem1
+        '
+        Me.TabItem1.AttachedControl = Me.TabControlPanel1
+        Me.TabItem1.Name = "TabItem1"
+        Me.TabItem1.Text = "Apply Patch"
+        '
+        'TabControlPanel2
+        '
+        Me.TabControlPanel2.Controls.Add(Me.CircularProgress_Create)
+        Me.TabControlPanel2.Controls.Add(Me.LabelX15)
+        Me.TabControlPanel2.Controls.Add(Me.GroupBox1)
+        Me.TabControlPanel2.Controls.Add(Me.LabelX1)
+        Me.TabControlPanel2.Controls.Add(Me.CheckBoxX2)
+        Me.TabControlPanel2.Controls.Add(Me.TextBoxX_OriginalLevelCreate)
+        Me.TabControlPanel2.Controls.Add(Me.CheckBoxX1)
+        Me.TabControlPanel2.Controls.Add(Me.TextBoxX_PatchFileCreate)
+        Me.TabControlPanel2.Controls.Add(Me.ButtonX1)
+        Me.TabControlPanel2.Controls.Add(Me.LabelX3)
+        Me.TabControlPanel2.Controls.Add(Me.ButtonX2)
+        Me.TabControlPanel2.Controls.Add(Me.LabelX2)
+        Me.TabControlPanel2.Controls.Add(Me.TextBoxX_ModifiedLevel)
+        Me.TabControlPanel2.Controls.Add(Me.ButtonX3)
+        Me.TabControlPanel2.Controls.Add(Me.Button_CreatePatch)
+        Me.TabControlPanel2.DisabledBackColor = System.Drawing.Color.Empty
+        Me.TabControlPanel2.Dock = System.Windows.Forms.DockStyle.Fill
+        Me.TabControlPanel2.Location = New System.Drawing.Point(0, 27)
+        Me.TabControlPanel2.Name = "TabControlPanel2"
+        Me.TabControlPanel2.Padding = New System.Windows.Forms.Padding(1)
+        Me.TabControlPanel2.Size = New System.Drawing.Size(342, 91)
+        Me.TabControlPanel2.Style.BackColor1.Color = System.Drawing.Color.White
+        Me.TabControlPanel2.Style.Border = DevComponents.DotNetBar.eBorderType.SingleLine
+        Me.TabControlPanel2.Style.BorderColor.Color = System.Drawing.Color.FromArgb(CType(CType(211, Byte), Integer), CType(CType(211, Byte), Integer), CType(CType(211, Byte), Integer))
+        Me.TabControlPanel2.Style.BorderSide = CType(((DevComponents.DotNetBar.eBorderSide.Left Or DevComponents.DotNetBar.eBorderSide.Right) _
+            Or DevComponents.DotNetBar.eBorderSide.Bottom), DevComponents.DotNetBar.eBorderSide)
+        Me.TabControlPanel2.Style.GradientAngle = 90
+        Me.TabControlPanel2.TabIndex = 5
+        Me.TabControlPanel2.TabItem = Me.TabItem2
+        '
+        'CircularProgress_Create
+        '
+        Me.CircularProgress_Create.BackColor = System.Drawing.Color.Transparent
+        '
+        '
+        '
+        Me.CircularProgress_Create.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
+        Me.CircularProgress_Create.Location = New System.Drawing.Point(4, 259)
+        Me.CircularProgress_Create.Name = "CircularProgress_Create"
+        Me.CircularProgress_Create.ProgressBarType = DevComponents.DotNetBar.eCircularProgressType.Dot
+        Me.CircularProgress_Create.ProgressColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(0, Byte), Integer), CType(CType(64, Byte), Integer))
+        Me.CircularProgress_Create.Size = New System.Drawing.Size(23, 23)
+        Me.CircularProgress_Create.Style = DevComponents.DotNetBar.eDotNetBarStyle.OfficeXP
+        Me.CircularProgress_Create.TabIndex = 42
+        '
+        'Button_CreatePatch
+        '
+        Me.Button_CreatePatch.AccessibleRole = System.Windows.Forms.AccessibleRole.PushButton
+        Me.Button_CreatePatch.ColorTable = DevComponents.DotNetBar.eButtonColor.OrangeWithBackground
+        Me.Button_CreatePatch.FocusCuesEnabled = False
+        Me.Button_CreatePatch.Location = New System.Drawing.Point(233, 259)
+        Me.Button_CreatePatch.Name = "Button_CreatePatch"
+        Me.Button_CreatePatch.Size = New System.Drawing.Size(101, 23)
+        Me.Button_CreatePatch.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
+        Me.Button_CreatePatch.TabIndex = 43
+        Me.Button_CreatePatch.Text = "Create Patch!"
+        '
+        'TabItem2
+        '
+        Me.TabItem2.AttachedControl = Me.TabControlPanel2
+        Me.TabItem2.Name = "TabItem2"
+        Me.TabItem2.Text = "Create Patch"
+        '
         'Form1
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-        Me.ClientSize = New System.Drawing.Size(352, 118)
-        Me.Controls.Add(Me.TabControl1)
+        Me.ClientSize = New System.Drawing.Size(342, 118)
+        Me.Controls.Add(Me.TabControl2)
+        Me.DoubleBuffered = True
+        Me.EnableGlass = False
         Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedSingle
         Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
         Me.MaximizeBox = False
         Me.Name = "Form1"
         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
-        Me.Text = "SMBX Magic Patcher"
-        Me.TabControl1.ResumeLayout(False)
-        Me.TabPage1.ResumeLayout(False)
-        Me.TabPage2.ResumeLayout(False)
+        Me.Tag = ""
+        Me.Text = "SMBX Magic Patcher (v1.1)"
+        Me.TopLeftCornerSize = 0
+        Me.TopRightCornerSize = 0
         Me.GroupBox1.ResumeLayout(False)
+        CType(Me.TabControl2, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.TabControl2.ResumeLayout(False)
+        Me.TabControlPanel1.ResumeLayout(False)
+        Me.TabControlPanel2.ResumeLayout(False)
         Me.ResumeLayout(False)
 
     End Sub
-
-    Friend WithEvents TabControl1 As TabControl
-    Friend WithEvents TabPage1 As TabPage
-    Friend WithEvents TabPage2 As TabPage
-    Friend WithEvents Button_ApplyPatch As Button
     Friend WithEvents LabelX4 As DevComponents.DotNetBar.LabelX
     Friend WithEvents LabelX6 As DevComponents.DotNetBar.LabelX
     Friend WithEvents ButtonX4 As DevComponents.DotNetBar.ButtonX
     Friend WithEvents TextBoxX_PatchFileApply As DevComponents.DotNetBar.Controls.TextBoxX
     Friend WithEvents ButtonX6 As DevComponents.DotNetBar.ButtonX
     Friend WithEvents TextBoxX_OriginalLevelApply As DevComponents.DotNetBar.Controls.TextBoxX
-    Friend WithEvents Button_CreatePatch As Button
     Friend WithEvents LabelX3 As DevComponents.DotNetBar.LabelX
     Friend WithEvents LabelX2 As DevComponents.DotNetBar.LabelX
     Friend WithEvents LabelX1 As DevComponents.DotNetBar.LabelX
@@ -758,5 +919,14 @@ Partial Class Form1
     Friend WithEvents LabelX14 As DevComponents.DotNetBar.LabelX
     Friend WithEvents LabelX15 As DevComponents.DotNetBar.LabelX
     Friend WithEvents CircularProgress_Apply As DevComponents.DotNetBar.Controls.CircularProgress
+    Friend WithEvents SuperTooltip1 As DevComponents.DotNetBar.SuperTooltip
+    Friend WithEvents StyleManager1 As DevComponents.DotNetBar.StyleManager
+    Friend WithEvents TabControl2 As DevComponents.DotNetBar.TabControl
+    Friend WithEvents TabControlPanel2 As DevComponents.DotNetBar.TabControlPanel
+    Friend WithEvents TabItem2 As DevComponents.DotNetBar.TabItem
+    Friend WithEvents TabControlPanel1 As DevComponents.DotNetBar.TabControlPanel
+    Friend WithEvents TabItem1 As DevComponents.DotNetBar.TabItem
     Friend WithEvents CircularProgress_Create As DevComponents.DotNetBar.Controls.CircularProgress
+    Friend WithEvents Button_CreatePatch As DevComponents.DotNetBar.ButtonX
+    Friend WithEvents Button_ApplyPatch As DevComponents.DotNetBar.ButtonX
 End Class

SMBX Magic Patcher/Form1.resx

@@ -117,6 +117,16 @@
   <resheader name="writer">
     <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
   </resheader>
+  <metadata name="SuperTooltip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </metadata>
+  <data name="CheckBoxX2.SuperTooltip" xml:space="preserve">
+    <value>Use this, if you would make a patch of a little feauture wich is in a level of e.g. your episode. Then you should make a level "without feauture" and "with feauture".
+That means that all things (like npc's or custom graphics), wich you used in this level will, be ignored.</value>
+  </data>
+  <metadata name="StyleManager1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>145, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

SMBX Magic Patcher/Form1.vb

@@ -1,9 +1,12 @@
-Imports System.IO
+Imports System.Globalization
+Imports System.IO
 Imports DevComponents.DotNetBar
 
 Public Class Form1
 
     Public TempDir As String = Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData) & "\SMBX Magic Patcher"
+    Private SMBXPFX As New SMBXPFX
+    Private ReadOnly fileSeperatorChar As String = CultureInfo.CurrentCulture.TextInfo.ListSeparator
 
     Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
         With New OpenFileDialog
@@ -38,23 +41,38 @@ Public Class Form1
     Private Sub ButtonX6_Click(sender As Object, e As EventArgs) Handles ButtonX6.Click
         With New OpenFileDialog
             .Filter = "SMBX-38A Levels (*.lvl)|*.lvl"
+            .Multiselect = True
             If .ShowDialog = Not DialogResult.OK Then
                 Exit Sub
             End If
-            TextBoxX_OriginalLevelApply.Text = .FileName
+            TextBoxX_OriginalLevelApply.Text = GetFileListAsString(.FileNames)
         End With
     End Sub
 
     Private Sub ButtonX4_Click(sender As Object, e As EventArgs) Handles ButtonX4.Click
         With New OpenFileDialog
             .Filter = "All supported files (*.plx, *.slp)|*.plx;*.slp"
+            .Multiselect = True
             If .ShowDialog = Not DialogResult.OK Then
                 Exit Sub
             End If
-            TextBoxX_PatchFileApply.Text = .FileName
+            TextBoxX_PatchFileApply.Text = GetFileListAsString(.FileNames)
         End With
     End Sub
 
+    Private Function GetFileListAsString(files As String()) As String
+        Dim str As String = String.Empty
+
+        For Each file As String In files
+            If Not String.IsNullOrEmpty(str) Then
+                str &= fileSeperatorChar
+            End If
+            str &= file
+        Next
+
+        Return str
+    End Function
+
     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button_CreatePatch.Click
         CircularProgress_Create.IsRunning = True
         Button_CreatePatch.Enabled = False
@@ -73,8 +91,12 @@ Public Class Form1
                                         SwitchButton_Scripts.Value,
                                         SwitchButton_Liquids.Value)
 
-            Case 1 : MessageBoxEx.Show("Done", "Patch succesfully created!", MessageBoxButtons.OK, MessageBoxIcon.Information)
-            Case Else : MessageBoxEx.Show("Done", "Patch succesfully created!", MessageBoxButtons.OK, MessageBoxIcon.Information)
+            Case 1
+                MessageBoxEx.Show("Patch succesfully created!", "Done", MessageBoxButtons.OK, MessageBoxIcon.Information)
+            Case 2
+                MessageBoxEx.Show("There is an error at packing!", "Done", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            Case Else
+                MessageBoxEx.Show("There is an unknown error!", "Done", MessageBoxButtons.OK, MessageBoxIcon.Error)
         End Select
 
         Button_CreatePatch.Enabled = True
@@ -83,7 +105,42 @@ Public Class Form1
     End Sub
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button_ApplyPatch.Click
-        SMBXPFX.ApplyPatch(TextBoxX_OriginalLevelApply.Text, TextBoxX_PatchFileApply.Text)
+        CircularProgress_Apply.IsRunning = True
+        LabelX14.Visible = True
+        Button_ApplyPatch.Enabled = False
+
+        ApplyPatch(TextBoxX_PatchFileApply.Text.Split(fileSeperatorChar),
+                   TextBoxX_OriginalLevelApply.Text.Split(fileSeperatorChar))
+
+        LabelX14.Visible = False
+        CircularProgress_Apply.IsRunning = False
+        Button_ApplyPatch.Enabled = True
+    End Sub
+
+    Private Sub ApplyPatch(patchFiles As String(), levelFiles As String())
+        Dim noErrors As Integer = 0
+
+        For Each levelFile As String In levelFiles
+            Dim msgEnd As String = "<br/><br/>Level file:<br/>" & levelFile
+            Select Case SMBXPFX.ApplyPatch(levelFile, patchFiles)
+                Case 1
+                    noErrors += 1
+                Case 2
+                    MessageBoxEx.Show("There is an error at extracting files! Or maybe this isn't a valid patch file." & msgEnd, "Done", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                Case 3
+                    MessageBoxEx.Show("This isn't a valid patch file." & msgEnd, "Done", MessageBoxButtons.OK, MessageBoxIcon.Error)
+                Case Else
+                    MessageBoxEx.Show("There is an unknown error!" & msgEnd, "Done", MessageBoxButtons.OK, MessageBoxIcon.Error)
+            End Select
+        Next
+
+        If noErrors >= levelFiles.Length Then
+            MessageBoxEx.Show("All patches applied succesfully!", "Done", MessageBoxButtons.OK, MessageBoxIcon.Information)
+        ElseIf noErrors < levelFiles.Length Then
+            MessageBoxEx.Show("All patches applied, but there seems to be some errors!", "Done", MessageBoxButtons.OK, MessageBoxIcon.Information)
+        Else
+            MessageBoxEx.Show("No patch applied! There are some errors.", "Done", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End If
     End Sub
 
     Private Sub CheckBoxX2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBoxX2.CheckedChanged
@@ -91,24 +148,55 @@ Public Class Form1
         TextBoxX_OriginalLevelCreate.Enabled = CheckBoxX2.Checked
     End Sub
 
-    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged
-        Select Case TabControl1.SelectedIndex
-            Case 0 : Me.Size = New Point(368, 157)
-            Case 1 : Me.Size = New Point(368, 354)
+    Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl2.SelectedTabChanged
+        Select Case TabControl2.SelectedTabIndex
+            Case 0 : Size = New Point(358, 157)
+            Case 1 : Size = New Point(358, 354)
         End Select
     End Sub
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         If Not Directory.Exists(TempDir) Then Directory.CreateDirectory(TempDir)
     End Sub
+
+    Private Sub Form1_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
+        CheckAndApplyCommandLinePatches()
+    End Sub
+
+    Private Sub CheckAndApplyCommandLinePatches()
+        Dim cmds As String() = Environment.GetCommandLineArgs
+        Dim hasCmds As Boolean = cmds.Length > 1
+        Dim patchFiles As New List(Of String)
+        Dim levelFiles As New List(Of String)
+
+        If hasCmds Then
+            For i = 0 To cmds.Length - 1
+                Dim cmd As String = cmds(i)
+                Select Case Path.GetExtension(cmd).ToLower
+                    Case ".lvl"
+                        levelFiles.Add(cmd)
+                    Case ".plx", ".slp"
+                        patchFiles.Add(cmd)
+                End Select
+            Next
+        End If
+
+        TextBoxX_OriginalLevelApply.Text = GetFileListAsString(levelFiles.ToArray)
+        TextBoxX_PatchFileApply.Text = GetFileListAsString(patchFiles.ToArray)
+
+        If patchFiles.Any AndAlso levelFiles.Any Then
+            Button_ApplyPatch.PerformClick()
+        End If
+    End Sub
+
 End Class
 
 Public Class SMBXPFX
 
-    Shared Function CreatePatch(OriginalLevel As String, PatchedLevel As String, PatchFile As String, Optional UseCustomOriginalLevelFile As Boolean = False, Optional CopyBlocksEtc As Boolean = True, Optional CopyGraphics As Boolean = True, Optional CopyConfigurations As Boolean = True, Optional CopyEvents As Boolean = True, Optional CopyLayers As Boolean = True, Optional CopyVariables As Boolean = True, Optional CopyScripts As Boolean = True, Optional CopyLiquids As Boolean = True) As Integer
+    Public Function CreatePatch(OriginalLevel As String, PatchedLevel As String, PatchFile As String, Optional UseCustomOriginalLevelFile As Boolean = False, Optional CopyBlocksEtc As Boolean = True, Optional CopyGraphics As Boolean = True, Optional CopyConfigurations As Boolean = True, Optional CopyEvents As Boolean = True, Optional CopyLayers As Boolean = True, Optional CopyVariables As Boolean = True, Optional CopyScripts As Boolean = True, Optional CopyLiquids As Boolean = True) As Integer
         Dim CheckIfFilesExists = True
         If Not UseCustomOriginalLevelFile Then
-            OriginalLevel = Application.StartupPath & "\emptylevel\emptylevel.dat"
+            OriginalLevel = Application.StartupPath & "\Data\emptylevel\emptylevel.dat"
             CheckIfFilesExists = False
         End If
 
@@ -120,20 +208,20 @@ Public Class SMBXPFX
         'Add differences to patch:
         For Each l As String In PLevel
             If Not l Is "" And Not OLevel.Contains(l) And Not l.StartsWith("SMBXFile") Then
-                If l.StartsWith("P1|") Or l.StartsWith("P2|") Or l.StartsWith("M|") Then GoTo SkipCheck
-                If l.StartsWith("B|") And Not CopyBlocksEtc Then GoTo SkipCheck 'Blcks
-                If l.StartsWith("N|") And Not CopyBlocksEtc Then GoTo SkipCheck 'NPCs
-                If l.StartsWith("T|") And Not CopyBlocksEtc Then GoTo SkipCheck 'Backgrounds
-                If l.StartsWith("Q|") And Not CopyLiquids Then GoTo SkipCheck 'Liquids
-                If l.StartsWith("CB|") And Not CopyConfigurations Then GoTo SkipCheck 'Custom Block Configurations
-                If l.StartsWith("CT|") And Not CopyConfigurations Then GoTo SkipCheck 'Custom Backgrounds Configurations
-                If l.StartsWith("L|") And Not CopyLayers Then GoTo SkipCheck 'Layer
-                If l.StartsWith("E|") And Not CopyEvents Then GoTo SkipCheck 'Events
-                If l.StartsWith("V|") And Not CopyVariables Then GoTo SkipCheck 'Variables
-                If l.StartsWith("S|") And Not CopyScripts Then GoTo SkipCheck 'Scripts
-                If l.StartsWith("Su|") And Not CopyScripts Then GoTo SkipCheck 'Scripts
+                If l.StartsWith("P1|") Or l.StartsWith("P2|") Or l.StartsWith("M|") Then Continue For
+                If l.StartsWith("B|") And Not CopyBlocksEtc Then Continue For 'Blcks
+                If l.StartsWith("N|") And Not CopyBlocksEtc Then Continue For 'NPCs
+                If l.StartsWith("T|") And Not CopyBlocksEtc Then Continue For 'Backgrounds
+                If l.StartsWith("Q|") And Not CopyLiquids Then Continue For 'Liquids
+                If l.StartsWith("CB|") And Not CopyConfigurations Then Continue For 'Custom Block Configurations
+                If l.StartsWith("CT|") And Not CopyConfigurations Then Continue For 'Custom Backgrounds Configurations
+                If l.StartsWith("L|") And Not CopyLayers Then Continue For 'Layer
+                If l.StartsWith("E|") And Not CopyEvents Then Continue For 'Events
+                If l.StartsWith("V|") And Not CopyVariables Then Continue For 'Variables
+                If l.StartsWith("S|") And Not CopyScripts Then Continue For 'Scripts
+                If l.StartsWith("Su|") And Not CopyScripts Then Continue For 'Scripts
                 If Not PFile.Contains(l) Then PFile.Add(l) 'Finaly add line to patch
-SkipCheck:  End If
+            End If
         Next
 
         'Check for custom graphics:
@@ -163,11 +251,11 @@ SkipCheck:  End If
         If Directory.Exists(TempLeveldir) Then Directory.Delete(TempLeveldir, True) : Application.DoEvents()
         Directory.CreateDirectory(TempLeveldir) : Application.DoEvents()
         For Each f As String In FilesToCopyInLeveldir
-            Try : File.Copy(f, TempLeveldir & "\" & Path.GetFileName(f)) : Catch ex As Exception : MsgBox(ex.Message) : End Try
+            Try : File.Copy(f, TempLeveldir & "\" & Path.GetFileName(f)) : Catch ex As Exception : End Try
             Application.DoEvents() : Next
         If FilesToCopyInLevelfiledir.Count > 0 Then Directory.CreateDirectory(TempLevelfiledir)
         For Each f As String In FilesToCopyInLevelfiledir
-            Try : File.Copy(f, TempLevelfiledir & "\" & Path.GetFileName(f)) : Catch ex As Exception : MsgBox(ex.Message) : End Try
+            Try : File.Copy(f, TempLevelfiledir & "\" & Path.GetFileName(f)) : Catch ex As Exception : End Try
             Application.DoEvents() : Next
 
         'Write level:
@@ -177,8 +265,8 @@ SkipCheck:  End If
         If File.Exists(PatchFile) Then File.Delete(PatchFile)
         Dim sevenzip As New Process
         If Environment.Is64BitOperatingSystem Then
-            sevenzip.StartInfo.FileName = Application.StartupPath & "\7-Zip\x64\7z.exe"
-        Else : sevenzip.StartInfo.FileName = Application.StartupPath & "\7-Zip\x86\7z.exe"
+            sevenzip.StartInfo.FileName = Application.StartupPath & "\Data\7-Zip\x64\7z.exe"
+        Else : sevenzip.StartInfo.FileName = Application.StartupPath & "\Data\7-Zip\x86\7z.exe"
         End If
         Dim password As String = "SMBXMagicPatcher"
         sevenzip.StartInfo.Arguments = String.Format("a -t7z ""{1}"" -p{0} -mhe -mx9 ""{2}""", password, Form1.TextBoxX_PatchFileCreate.Text, TempLeveldir & "\*")
@@ -190,146 +278,104 @@ SkipCheck:  End If
             Return 2 'Error at packing
         End If
 
+        Directory.Delete(TempLeveldir, True)
         Return 1
     End Function
 
-    Shared Function ApplyPatch(OriginalLevel As String, PatchFile As String) As Integer
+    Public Function ApplyPatch(originalLevel As String, patchFiles As String()) As Integer
         Dim PatchTyp As Integer = 0 '0 = plx | 1 = slp
-        Dim PLevel As List(Of String) = File.ReadAllLines(OriginalLevel).ToList
-        Dim TempLeveldir As String = Form1.TempDir & "\TempLevel"
-        Dim TempLevelfiledir As String = TempLeveldir & "\data"
-        If Directory.Exists(TempLeveldir) Then Directory.Delete(TempLeveldir, True)
-        Directory.CreateDirectory(TempLeveldir)
+        Dim PLevel As List(Of String) = File.ReadAllLines(originalLevel).ToList
+        Dim TempLeveldir As String = Form1.TempDir & "\TempLevel" : Dim TempLevelfiledir As String = TempLeveldir & "\data"
+        Dim oLeveldir As String = Path.GetDirectoryName(originalLevel) : Dim oLevelfiledir As String = oLeveldir & "\" & Path.GetFileNameWithoutExtension(originalLevel)
+        If Directory.Exists(TempLeveldir) Then Directory.Delete(TempLeveldir, True) : Application.DoEvents()
+        Directory.CreateDirectory(TempLeveldir) : Application.DoEvents()
 
-        'Check Patchtyp:
-        Select Case Path.GetExtension(PatchFile)
-            Case ".slp" : PatchTyp = 1
-            Case ".plx" : PatchTyp = 0
-            Case Else : Return 3
-        End Select
+        For Each patchFile As String In patchFiles
+            'Check Patchtyp:
+            Select Case Path.GetExtension(patchFile)
+                Case ".slp"
+                    PatchTyp = 1
+                Case ".plx"
+                    PatchTyp = 0
+                Case Else
+                    Return 3
+            End Select
 
-        'Extract with 7-zip:
-        If PatchTyp = 0 Then
-            Dim sevenzip As New Process
-            If Environment.Is64BitOperatingSystem Then
-                sevenzip.StartInfo.FileName = Application.StartupPath & "\7-Zip\x64\7z.exe"
-            Else : sevenzip.StartInfo.FileName = Application.StartupPath & "\7-Zip\x86\7z.exe"
+            'Extract with 7-zip:
+            If PatchTyp = 0 Then
+                Dim sevenzip As New Process
+                If IntPtr.Size = 8 Then
+                    sevenzip.StartInfo.FileName = Application.StartupPath & "\Data\7-Zip\x64\7z.exe"
+                Else
+                    sevenzip.StartInfo.FileName = Application.StartupPath & "\Data\7-Zip\x86\7z.exe"
+                End If
+                Dim password As String = "SMBXMagicPatcher"
+                sevenzip.StartInfo.Arguments = String.Format("x ""{1}"" -p{0} -o""{2}"" -r", password, patchFile, TempLeveldir & "\")
+                sevenzip.StartInfo.UseShellExecute = False
+                sevenzip.StartInfo.CreateNoWindow = True
+                sevenzip.Start()
+                Do Until sevenzip.HasExited = True : Application.DoEvents() : Loop
+                If sevenzip.ExitCode <> 0 Then
+                    Return 2 'Error at packing
+                End If
             End If
-            Dim password As String = "SMBXMagicPatcher"
-            sevenzip.StartInfo.Arguments = String.Format("x ""{1}"" -p{0} -o""{2}"" -r", password, Form1.TextBoxX_PatchFileApply.Text, TempLeveldir & "\")
-            sevenzip.StartInfo.UseShellExecute = False
-            sevenzip.StartInfo.CreateNoWindow = True
-            sevenzip.Start()
 
-            Do Until sevenzip.HasExited = True : Application.DoEvents() : Loop
-            If sevenzip.ExitCode <> 0 Then
-                Return 2 'Error at packing
-            End If
-        End If
+            'Load patchlevel:
+            Dim PFile() As String = {}
+            Select Case PatchTyp
+                Case 0 : PFile = File.ReadAllLines(TempLeveldir & "\data.dat")
+                Case 1 : PFile = File.ReadAllLines(patchFile)
+            End Select
 
-        'Load patchlevel:
-        Dim PFile() As String = {""}
-        Select Case PatchTyp
-            Case 0 : PFile = File.ReadAllLines(TempLeveldir & "\data.dat")
-            Case 1 : PFile = File.ReadAllLines(PatchFile)
-        End Select
+            'Apply lines in patch to the level:
+            For Each l As String In PFile
+                If Not PLevel.Contains(l) Then PLevel.Add(l)
+            Next
 
-        'Apply lines in patch to the level:
-        For Each l As String In PFile
-            If Not PLevel.Contains(l) Then
-                PLevel.Add(l)
+            'Copy and replace files
+            If PatchTyp = 0 Then
+                Dim pListFilesInLeveldir() As String = Directory.GetFiles(TempLeveldir)
+                Dim pListFilesInLevelfiledir() As String = {}
+                If Directory.Exists(TempLevelfiledir) Then
+                    pListFilesInLevelfiledir = Directory.GetFiles(TempLevelfiledir)
+                End If
+
+                Dim oListFilesInLeveldir() As String = Directory.GetFiles(oLeveldir)
+                Dim oListFilesInLevelfiledir() As String = {}
+                If Directory.Exists(oLevelfiledir) Then
+                    oListFilesInLevelfiledir = Directory.GetFiles(oLevelfiledir)
+                End If
+
+                If Not Directory.Exists(oLevelfiledir) And oListFilesInLevelfiledir.Count > 0 Then
+                    Directory.CreateDirectory(oLevelfiledir)
+                End If
+
+                For i As Integer = 0 To pListFilesInLeveldir.Count - 1
+                    If Not pListFilesInLeveldir(i) = TempLeveldir & "\data.dat" Then _
+                        File.Copy(pListFilesInLeveldir(i), oLeveldir & "\" & Path.GetFileName(pListFilesInLeveldir(i)), True)
+                    Application.DoEvents() : Next
+                For i As Integer = 0 To pListFilesInLevelfiledir.Count - 1
+                    File.Copy(pListFilesInLevelfiledir(i), oLevelfiledir & "\" & Path.GetFileName(pListFilesInLevelfiledir(i)), True)
+                    Application.DoEvents() : Next
             End If
         Next
 
-        'Copy and replace files
-        If PatchTyp = 0 Then
-            Dim ListFilesInLeveldir() As String = Directory.GetFileSystemEntries(TempLeveldir)
-
-        End If
-
         'Wirte new level file
         Do While PLevel.Contains("")
-            PLevel.Remove("") : Application.DoEvents() : Loop
-        File.WriteAllLines(OriginalLevel, PLevel.ToArray)
+            PLevel.Remove("") : Application.DoEvents()
+        Loop
+        File.WriteAllLines(originalLevel, PLevel.ToArray)
 
         Return 1
     End Function
-
-    Shared Function GetHelp() As String
-        Return "Not aviable yet!"
-    End Function
 End Class
 
 Public Class PatchSettings
-
-    Private _CopyBlocksEtc As Boolean = True
-    Private _CopyGraphics As Boolean = True
-    Private _CopyConfigs As Boolean = True
-    Private _CopyEvents As Boolean = True
-    Private _CopyLayers As Boolean = True
-    Private _CopyScripts As Boolean = True
-    Private _CopyVariables As Boolean = True
-
-    Public Property CopyBlocksEtc As Boolean
-        Get
-            Return _CopyBlocksEtc
-        End Get
-        Set(value As Boolean)
-            _CopyBlocksEtc = value
-        End Set
-    End Property
-
-    Public Property CopyGraphics As Boolean
-        Get
-            Return _CopyGraphics
-        End Get
-        Set(value As Boolean)
-            _CopyGraphics = value
-        End Set
-    End Property
-
-    Public Property CopyConfigs As Boolean
-        Get
-            Return _CopyConfigs
-        End Get
-        Set(value As Boolean)
-            _CopyConfigs = value
-        End Set
-    End Property
-
-    Public Property CopyEvents As Boolean
-        Get
-            Return _CopyEvents
-        End Get
-        Set(value As Boolean)
-            _CopyEvents = value
-        End Set
-    End Property
-
-    Public Property CopyLayers As Boolean
-        Get
-            Return _CopyLayers
-        End Get
-        Set(value As Boolean)
-            _CopyLayers = value
-        End Set
-    End Property
-
-    Public Property CopyScripts As Boolean
-        Get
-            Return _CopyScripts
-        End Get
-        Set(value As Boolean)
-            _CopyScripts = value
-        End Set
-    End Property
-
-    Public Property CopyVariables As Boolean
-        Get
-            Return _CopyVariables
-        End Get
-        Set(value As Boolean)
-            _CopyVariables = value
-        End Set
-    End Property
+    Public Property CopyBlocksEtc As Boolean = True
+    Public Property CopyGraphics As Boolean = True
+    Public Property CopyConfigs As Boolean = True
+    Public Property CopyEvents As Boolean = True
+    Public Property CopyLayers As Boolean = True
+    Public Property CopyScripts As Boolean = True
+    Public Property CopyVariables As Boolean = True
 End Class

SMBX Magic Patcher/My Project/Application.Designer.vb

@@ -1,10 +1,10 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
@@ -14,14 +14,14 @@ Option Explicit On
 
 Namespace My
     
-    'NOTE: This file is auto-generated; do not modify it directly.  To make changes,
-    ' or if you encounter build errors in this file, go to the Project Designer
-    ' (go to Project Properties or double-click the My Project node in
-    ' Solution Explorer), and make changes on the Application tab.
+    'HINWEIS: Diese Datei wird automatisch generiert und darf nicht direkt bearbeitet werden. Wenn Sie Änderungen vornehmen möchten,
+    ' oder bei in dieser Datei auftretenden Buildfehlern wechseln Sie zum Projekt-Designer.
+    ' (Wechseln Sie dazu zu den Projekteigenschaften, oder doppelklicken Sie auf den Knoten "Mein Projekt" im
+    ' Projektmappen-Explorer). Nehmen Sie auf der Registerkarte "Anwendung" entsprechende Änderungen vor.
     '
     Partial Friend Class MyApplication
         
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Public Sub New()
             MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
             Me.IsSingleInstance = false
@@ -30,7 +30,7 @@ Namespace My
             Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
         End Sub
         
-        <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
+        <Global.System.Diagnostics.DebuggerStepThroughAttribute()>  _
         Protected Overrides Sub OnCreateMainForm()
             Me.MainForm = Global.SMBX_Magic_Patcher.Form1
         End Sub

SMBX Magic Patcher/My Project/AssemblyInfo.vb

@@ -12,7 +12,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyDescription("This is a simple tool to create and apply patchs of SMBX files.")>
 <Assembly: AssemblyCompany("")>
 <Assembly: AssemblyProduct("SMBX Magic Patcher")>
-<Assembly: AssemblyCopyright("Copyright © Pilzinsel64 2017")>
+<Assembly: AssemblyCopyright("Copyright © Pilzinsel64 2017 - 2018")>
 <Assembly: AssemblyTrademark("")>
 
 <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.0.0.0")>
-<Assembly: AssemblyFileVersion("1.0.0.0")>
+<Assembly: AssemblyVersion("1.1.0.0")>
+<Assembly: AssemblyFileVersion("1.1.0.0")>

SMBX Magic Patcher/My Project/Resources.Designer.vb

@@ -1,30 +1,31 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
 Option Strict On
 Option Explicit On
 
+Imports System
 
 Namespace My.Resources
     
-    'This class was auto-generated by the StronglyTypedResourceBuilder
-    'class via a tool like ResGen or Visual Studio.
-    'To add or remove a member, edit your .ResX file then rerun ResGen
-    'with the /str option, or rebuild your VS project.
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
     '''<summary>
-    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
     '''</summary>
-    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
     Friend Module Resources
         
         Private resourceMan As Global.System.Resources.ResourceManager
@@ -32,9 +33,9 @@ Namespace My.Resources
         Private resourceCulture As Global.System.Globalization.CultureInfo
         
         '''<summary>
-        '''  Returns the cached ResourceManager instance used by this class.
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
         Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
             Get
                 If Object.ReferenceEquals(resourceMan, Nothing) Then
@@ -46,15 +47,15 @@ Namespace My.Resources
         End Property
         
         '''<summary>
-        '''  Overrides the current thread's CurrentUICulture property for all
-        '''  resource lookups using this strongly typed resource class.
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
         '''</summary>
-        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
         Friend Property Culture() As Global.System.Globalization.CultureInfo
             Get
                 Return resourceCulture
             End Get
-            Set(ByVal value As Global.System.Globalization.CultureInfo)
+            Set
                 resourceCulture = value
             End Set
         End Property

SMBX Magic Patcher/My Project/Settings.Designer.vb

@@ -1,10 +1,10 @@
 '------------------------------------------------------------------------------
 ' <auto-generated>
-'     This code was generated by a tool.
-'     Runtime Version:4.0.30319.42000
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
 '
-'     Changes to this file may cause incorrect behavior and will be lost if
-'     the code is regenerated.
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
 ' </auto-generated>
 '------------------------------------------------------------------------------
 
@@ -14,26 +14,26 @@ Option Explicit On
 
 Namespace My
     
-    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
-     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
-     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "14.0.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
     Partial Friend NotInheritable Class MySettings
         Inherits Global.System.Configuration.ApplicationSettingsBase
         
-        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
         
-#Region "My.Settings Auto-Save Functionality"
+#Region "Funktion zum automatischen Speichern von My.Settings"
 #If _MyType = "WindowsForms" Then
-        Private Shared addedHandler As Boolean
+    Private Shared addedHandler As Boolean
 
-        Private Shared addedHandlerLockObject As New Object
+    Private Shared addedHandlerLockObject As New Object
 
-        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
-        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
-            If My.Application.SaveMySettingsOnExit Then
-                My.Settings.Save()
-            End If
-        End Sub
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
 #End If
 #End Region
         
@@ -41,14 +41,14 @@ Namespace My
             Get
                 
 #If _MyType = "WindowsForms" Then
-                   If Not addedHandler Then
-                        SyncLock addedHandlerLockObject
-                            If Not addedHandler Then
-                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
-                                addedHandler = True
-                            End If
-                        End SyncLock
-                    End If
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
 #End If
                 Return defaultInstance
             End Get
@@ -58,12 +58,12 @@ End Namespace
 
 Namespace My
     
-    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
-     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
-     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
     Friend Module MySettingsProperty
         
-        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
         Friend ReadOnly Property Settings() As Global.SMBX_Magic_Patcher.My.MySettings
             Get
                 Return Global.SMBX_Magic_Patcher.My.MySettings.Default

SMBX Magic Patcher/SMBX Magic Patcher.vbproj

@@ -11,8 +11,9 @@
     <AssemblyName>SMBX Magic Patcher</AssemblyName>
     <FileAlignment>512</FileAlignment>
     <MyType>WindowsForms</MyType>
-    <TargetFrameworkVersion>v4.5.2</TargetFrameworkVersion>
+    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
     <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
+    <TargetFrameworkProfile />
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -23,6 +24,7 @@
     <OutputPath>bin\Debug\</OutputPath>
     <DocumentationFile>SMBX Magic Patcher.xml</DocumentationFile>
     <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+    <Prefer32Bit>false</Prefer32Bit>
   </PropertyGroup>
   <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
     <PlatformTarget>AnyCPU</PlatformTarget>
@@ -50,7 +52,7 @@
     <ApplicationIcon>1485383780_magic-wand-star-fantasy-magician-witchcraft.ico</ApplicationIcon>
   </PropertyGroup>
   <ItemGroup>
-    <Reference Include="DevComponents.DotNetBar2, Version=12.8.0.8, Culture=neutral, PublicKeyToken=7eb7c3a35b91de04, processorArchitecture=MSIL" />
+    <Reference Include="DevComponents.DotNetBar2, Version=14.1.0.33, Culture=neutral, PublicKeyToken=7eb7c3a35b91de04, processorArchitecture=MSIL" />
     <Reference Include="System" />
     <Reference Include="System.Data" />
     <Reference Include="System.Deployment" />