Imports System
Imports System.Diagnostics
Public Class MainClass
Public Enum AccessLevel
Clerk
Supervisor
Administrator
User = Clerk
Manager = Supervisor
SysAdmin = Administrator
Superuser = Administrator
End Enum
Shared Sub Main()
Dim access_level As AccessLevel = AccessLevel.SysAdmin
Dim txt As String = access_level.ToString() & vbCrLf
txt &= AccessLevel.Clerk.ToString() & vbCrLf
txt &= AccessLevel.Supervisor.ToString() & vbCrLf
txt &= AccessLevel.Administrator.ToString() & vbCrLf
Console.WriteLine(txt)
End Sub
End Class
|