Public Enum AccessLevel Clerk = 10 Supervisor Administrator = -1End Enumpublic class Test public Shared Sub Main Dim m_AccessLevel As AccessLevel m_AccessLevel = AccessLevel.Supervisor End SubEnd class