Data Type VB.Net Tutorial

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