Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigXml/Configs.vb
===================================================================
diff -u -r1942 -r1943
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigXml/Configs.vb	(.../Configs.vb)	(revision 1942)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Configs/ConfigXml/Configs.vb	(.../Configs.vb)	(revision 1943)
@@ -42,8 +42,8 @@
         For Each prop As PropertyInfo In type.GetProperties()
             'Enkel readable properties controleren
             If prop.CanRead Then
-                Dim val = DirectCast(prop.GetValue(_configData, Nothing), ConfigProperty).Waarde
-                If IsNothing(DirectCast(prop.GetValue(_configData, Nothing), ConfigProperty).Waarde) Then
+                If  IsNothing(prop.GetValue(_configData, Nothing)) OrElse
+                    IsNothing(DirectCast(prop.GetValue(_configData, Nothing), ConfigProperty).Waarde) Then
                     'Lege property, toevoegen aan lijst
                     nietGeconfigureerd.Add(prop.Name)
                 End If
@@ -121,10 +121,10 @@
 
     Private Class ConfigUtil
 
-        Public Shared sub PrepareForSetProperty(ByRef configP As ConfigProperty)
+        Public Shared Sub PrepareForSetProperty(ByRef configP As ConfigProperty)
             'Initialiseren als property niet aanwezig was
             If IsNothing(configP) Then configP = New ConfigProperty()
-        End sub
+        End Sub
 
         Public Shared Sub StelNieuwFilePadIn(value As String, ByRef configP As ConfigProperty)
             If Not IsNothing(value) AndAlso File.Exists(value) Then