Public Enum AccessLevel
Level1
Level2
Level3
AliasLevel1 = Level1
AliasLevel2 = Level2
AliasLevel3 = Level3
AliasLevel4 = Level3
End Enum
public class Test
public Shared Sub Main
Dim access_level As AccessLevel = AccessLevel.Level1
Console.WriteLine(access_level.ToString())
Console.WriteLine(AccessLevel.Level1.ToString())
Console.WriteLine(AccessLevel.Level2.ToString())
Console.WriteLine(AccessLevel.Level3.ToString())
End Sub
End class
|