diff --git a/app/DD-Record-Organiser/ModuleHelperMethods.vb b/app/DD-Record-Organiser/ModuleHelperMethods.vb
index a936910..df0c23e 100644
--- a/app/DD-Record-Organiser/ModuleHelperMethods.vb
+++ b/app/DD-Record-Organiser/ModuleHelperMethods.vb
@@ -353,4 +353,9 @@
 
         frm.Show()
     End Sub
+
+    Public Function ShortGUID() As String
+        Return Guid.NewGuid().ToString().GetHashCode().ToString("x")
+    End Function
+
 End Module
diff --git a/app/DD-Record-Organiser/frmLevel_Designer.vb b/app/DD-Record-Organiser/frmLevel_Designer.vb
index a646717..9b79334 100644
--- a/app/DD-Record-Organiser/frmLevel_Designer.vb
+++ b/app/DD-Record-Organiser/frmLevel_Designer.vb
@@ -109,7 +109,8 @@
             Dim def_font_style As Integer = 0
             Dim def_font_size As Integer = 8
 
-            Dim random As Integer = r.Next(8, 100)
+            Dim random As String = ShortGUID()
+            'Dim random As Integer = r.Next(8, 100)
             Select Case type
                 Case "lbl"
                     CtrlBuilder.AddLabel("lbl" & random, "Bezeichnung definieren", 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, "", True, Parent)