Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/GraveerInstelling.vb
===================================================================
diff -u -r1949 -r1950
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/GraveerInstelling.vb	(.../GraveerInstelling.vb)	(revision 1949)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Domein/GraveerInstelling.vb	(.../GraveerInstelling.vb)	(revision 1950)
@@ -6,7 +6,7 @@
     Public Property Ppi As String
 
     Public Overrides Function ToString() As String
-        If String.IsNullOrEmpty(Kleur) then Return "--Leeg--"
+        If String.IsNullOrEmpty(Kleur) then Return "Nieuw"
         Return Kleur
     End Function
-End Class
+End Class
\ No newline at end of file
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/My Project/Application.myapp
===================================================================
diff -u -r1922 -r1950
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/My Project/Application.myapp	(.../Application.myapp)	(revision 1922)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/My Project/Application.myapp	(.../Application.myapp)	(revision 1950)
@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-16"?>
+<?xml version="1.0" encoding="utf-8"?>
 <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
   <MySubMain>true</MySubMain>
   <MainForm>FormHoofdscherm</MainForm>
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj
===================================================================
diff -u -r1949 -r1950
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj	(.../Laser Gravering.vbproj)	(revision 1949)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj	(.../Laser Gravering.vbproj)	(revision 1950)
@@ -27,8 +27,8 @@
     <UpdatePeriodically>false</UpdatePeriodically>
     <UpdateRequired>false</UpdateRequired>
     <MapFileExtensions>true</MapFileExtensions>
-    <ApplicationRevision>0</ApplicationRevision>
-    <ApplicationVersion>2.1.0.%2a</ApplicationVersion>
+    <ApplicationRevision>1</ApplicationRevision>
+    <ApplicationVersion>2.1.1.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>
     <BootstrapperEnabled>true</BootstrapperEnabled>
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormConfigsWijzigen.vb
===================================================================
diff -u -r1948 -r1950
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormConfigsWijzigen.vb	(.../FormConfigsWijzigen.vb)	(revision 1948)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormConfigsWijzigen.vb	(.../FormConfigsWijzigen.vb)	(revision 1950)
@@ -11,37 +11,60 @@
             Using scope = My.MyApplication.Container.BeginLifetimeScope()
                 _configs = scope.Resolve(Of IConfigsClass)()
             End Using
+        Catch ex As Exception
+            ToonError(ex)
+        End Try
+    End Sub
 
+    Private Sub FormConfigsWijzigen_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        'Applicaiton.exit of reload in Load event gebruiken geeft problemen (null exception)
+        Try
+            Init()
+        Catch ex As Exception
+            ToonError(ex)
+        End Try
+    End Sub
+
+    Private Sub Init()
+        Try
             _configs.InitInstellingen(My.Settings.PadNaarSettingsBestand)
+
+            ToonConfigs()
         Catch mbcEx As MissingBaseConfigFileException
             If MessageBox.Show("Dit is waarschijnlijk de eerste keer dat u dit programma opstart. Gelieve een config bestand te selecteren.", "Nog geen config gekozen") <> DialogResult.OK Then
                 Application.Exit()
+                Return
             End If
             'Laat de gebruiker een config bestand kiezen
-            KiesHoofdConfig()
+            If KiesHoofdConfig() Then
+                'Hoofdconfig kiezen geslaagd
+                Init()
+            Else
+                'Hoofdconfig kiezen gefaald
+                Application.Exit()
+            End If
         Catch invC As InvalidConfigException
             If MessageBox.Show($"Er is een fout met een of meerdere configuraties: {vbNewLine}{invC.Message}") <> DialogResult.OK Then
                 Application.Exit()
             End If
-        Catch ex As Exception
-            ToonError(ex)
         End Try
-
-        ToonConfigs()
     End Sub
 
-    Private Sub KiesHoofdConfig()
-        OpenFileDialog.Title = "Hoofd config bestand"
-        If OpenFileDialog.ShowDialog() = DialogResult.OK Then
-            My.Settings.PadNaarSettingsBestand = OpenFileDialog.FileName
-            My.Settings.Save()
-            Application.Restart()
-            Return
-        Else
-            Application.Exit()
-            Return
-        End If
-    End Sub
+    Private Function KiesHoofdConfig() As Boolean
+        Try
+            OpenFileDialog.Title = "Hoofd config bestand"
+            If OpenFileDialog.ShowDialog() = DialogResult.OK Then
+                My.Settings.PadNaarSettingsBestand = OpenFileDialog.FileName
+                My.Settings.Save()
+                Return True
+            Else
+                Return False
+            End If
+        Catch ex As Exception
+            ToonError(ex, "Hoofdconfig kiezen liep fout")
+            Return False
+        End Try
+    End Function
 
     Private Sub ToonConfigs()
         Try
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.vb
===================================================================
diff -u -r1947 -r1950
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.vb	(.../FormHoofdscherm.vb)	(revision 1947)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormHoofdscherm.vb	(.../FormHoofdscherm.vb)	(revision 1950)
@@ -19,7 +19,10 @@
         End If
 
         'My.Settings.Reset()
+    End Sub
 
+    Private Sub FormHoofdscherm_Shown(sender As Object, e As EventArgs) Handles Me.Shown
+        'Application.exit of reload in Load event gebruiken geeft problemen (null exception)
         Try
             ' Kan geen dependecy injection doen via constructor in een WinForm
             Using scope = My.MyApplication.Container.BeginLifetimeScope()
@@ -37,7 +40,6 @@
                                    TypeOf ex Is InvalidConfigException
             'Ander scherm handelt config fouten af
             FormConfigsWijzigen.ShowDialog()
-            Return
         Catch ex As Exception
             ToonError(ex)
         End Try