Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj
===================================================================
diff -u -r1957 -r1958
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj	(.../Laser Gravering.vbproj)	(revision 1957)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Laser Gravering.vbproj	(.../Laser Gravering.vbproj)	(revision 1958)
@@ -28,7 +28,7 @@
     <UpdateRequired>false</UpdateRequired>
     <MapFileExtensions>true</MapFileExtensions>
     <ApplicationRevision>1</ApplicationRevision>
-    <ApplicationVersion>2.2.0.%2a</ApplicationVersion>
+    <ApplicationVersion>2.2.1.%2a</ApplicationVersion>
     <UseApplicationTrust>false</UseApplicationTrust>
     <PublishWizardCompleted>true</PublishWizardCompleted>
     <BootstrapperEnabled>true</BootstrapperEnabled>
Index: Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormGraveerInstellingen.vb
===================================================================
diff -u -r1948 -r1958
--- Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormGraveerInstellingen.vb	(.../FormGraveerInstellingen.vb)	(revision 1948)
+++ Laser Gravering/nieuw/Laser Gravering_nieuw/Laser Gravering/Formulieren/FormGraveerInstellingen.vb	(.../FormGraveerInstellingen.vb)	(revision 1958)
@@ -1,4 +1,5 @@
-Imports Autofac
+Imports System.Runtime.Remoting.Messaging
+Imports Autofac
 Imports Laser_Gravering.Util
 
 Public Class FormGraveerInstellingen
@@ -19,7 +20,9 @@
 
     Private Sub ToonInstellingen()
         Try
-            BindingSourceGraveerInstellingen.DataSource = _graveerInstellingenRepo.GraveerInstellingen
+            Dim graveerinstellingen = _graveerInstellingenRepo.GraveerInstellingen
+            graveerinstellingen.Sort(Function(x,y) String.Compare(x.Kleur,y.Kleur))
+            BindingSourceGraveerInstellingen.DataSource = graveerinstellingen
             StelBindingsIn()
         Catch ex As Exception
             ToonError(ex, "Fout met laden van graveer instellingen")