Public Class User
    Public Property Id As Integer = 0
    Public Property Prename As String
    Public Property Name As String
    Public Property Username As String
    Public Property Email As String
    Public Property Language As String

    Public Property HasAccess As Boolean
    Public Property IsAdmin As Boolean

    Public ReadOnly Property FullName() As String
        Get
            Return Prename + " " + Name
        End Get
    End Property
End Class