Public Class CurrentUser
    Public USER_GUID As String
    Public USER_NAME As String
    Public ReadOnly USER_LOGIN As DateTime

    Public Sub New()
        USER_LOGIN = DateTime.Now
    End Sub
End Class