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
Dim integer_value As Integer = 1
m_AccessLevel = CType(integer_value, AccessLevel)
Dim access_level As AccessLevel = AccessLevel.Clerk
Console.WriteLine(access_level.ToString())
End Sub
End class
|