Imports System
Imports System.Diagnostics
Public Class MainClass
Public Enum AccessLevel
Clerk
Supervisor
Administrator
User = Clerk
Manager = Supervisor
SysAdmin = Administrator
Superuser = Administrator
End Enum
Private Const MAX_VALUES As Integer = CInt(123.45)
Private Const MASK_READ As Long = &H1000&
Private Const MASK_WRITE As Long = &H2000&
Private Const MASK_READ_WRITE As Long = MASK_READ Or MASK_WRITE
Private Const MAX_ACCESS_LEVEL As AccessLevel = AccessLevel.SuperUser
Shared Sub Main()
Console.WriteLine("MAX_VALUES:" & MAX_VALUES)
Console.WriteLine("MASK_READ" & MASK_READ)
Console.WriteLine("MASK_WRITE " & MASK_WRITE)
Console.WriteLine("MASK_READ_WRITE " & MASK_READ_WRITE)
Console.WriteLine("MAX_ACCESS_LEVEL " & MAX_ACCESS_LEVEL)
End Sub
End Class
| 
