'// Init. for this class as object
    Sub New(Optional ByVal system_user As String = "")
 
        '// Set the user
        set_newUser(system_user)
 
    End Sub

    '// Init. for this class as object
    Sub New(Optional ByVal system_user As Integer = 0)
 
        '// Set the user
        set_newUser(system_user)
 
    End Sub