Kleinigkeiten... glaub ich ....

Dokumentation/Classes/cTSUser.vb

@@ -14,4 +14,10 @@
         Me.NameKurz = Me.BenutzerAnmeldeName.Substring(i + 1, Me.BenutzerAnmeldeName.Length - (i + 1))
     End Function
 
+    Public Shared Function genNameKurz(langername As String)
+        Dim i As Integer = langername.IndexOf("\")
+        Dim kn As String = langername.Substring(i + 1, langername.Length - (i + 1))
+        Return kn
+    End Function
+
 End Class