Module Module1
Enum Test
VB = 0
CSharp = 1
CPP = 2
Java = 3
End Enum
Sub Main()
Dim e As Test = Test.CSharp
Dim stack As New Stack(Of Test)
stack.Push(Test.VB)
stack.Push(Test.CPP)
stack.Push(Test.Java)
Dim pop As Test = stack.Pop()
Console.WriteLine(pop)
Console.WriteLine(pop.ToString)
pop = stack.Pop()
Console.WriteLine(pop)
Console.WriteLine(pop.ToString)
End Sub
End Module
' run:
'
' 3
' Java
' 2
' CPP