Public Enum AccessLevel Clerk Supervisor AdministratorEnd Enumpublic class Test public Shared Sub Main Dim m_AccessLevel As AccessLevel m_AccessLevel = AccessLevel.Supervisor End SubEnd class