diff --git a/app/DD_PM_WINDREAM/frmFormDesigner.vb b/app/DD_PM_WINDREAM/frmFormDesigner.vb
index 6a5b15e..ff6771f 100644
--- a/app/DD_PM_WINDREAM/frmFormDesigner.vb
+++ b/app/DD_PM_WINDREAM/frmFormDesigner.vb
@@ -31,7 +31,11 @@ Public Class frmFormDesigner
                 clsWindream.Create_Session()
 
                 'Windream Abfragen, sollten einmal beim Start des Formulars geladen werden
-                Windream_AllIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
+
+                Dim unsortedIndicies = clsWD_GET.GetIndicesByObjecttype(CURRENT_OBJECTTYPE).ToList()
+                Dim sortedIndicies = unsortedIndicies.OrderBy(Function(index As String) index).ToList()
+
+                Windream_AllIndicies = sortedIndicies
                 Windream_ChoiceLists = clsWD_GET.GetChoiceLists()
                 Windream_VectorIndicies = Windream_AllIndicies.FindAll(AddressOf IsVectorIndex)
                 Windream_SimpleIndicies = Windream_AllIndicies.Except(Windream_VectorIndicies).ToList()
@@ -565,6 +569,7 @@ Public Class frmFormDesigner
         obj.ChangedAt = NotNull(row.Item("CHANGED_WHEN"), Nothing)
         obj.ChangedWho = NotNull(row.Item("CHANGED_WHO"), "")
 
+
         Dim style As FontStyle = NotNull(row.Item("FONT_STYLE"), FontStyle.Regular)
         Dim size As Single = NotNull(row.Item("FONT_SIZE"), 10)
         Dim familyString As String = NotNull(row.Item("FONT_FAMILY"), "Arial")