Public Enum AccessLevel
Clerk
Supervisor
Administrator
User = 0
Manager
SysAdmin
Superuser = SysAdmin
End Enum
public class Test
public Shared Sub Main
Dim m_AccessLevel As AccessLevel
m_AccessLevel = AccessLevel.Supervisor
End Sub
End class