Public Class cTSUser

    Property BenutzerAnmeldeName As String = ""
    Property Name As String = ""
    Property TeamviewerID As Integer = Nothing
    Property LastLogonTime As DateTime = Nothing
    Property LastReport As DateTime = Nothing
    Property TSServer As String = ""
    Property NameKurz As String = ""


    Public Function genNameKurz()
        Dim i As Integer = Me.BenutzerAnmeldeName.IndexOf("\")
        Me.NameKurz = Me.BenutzerAnmeldeName.Substring(i + 1, Me.BenutzerAnmeldeName.Length - (i + 1))
    End Function

End Class