Imports System
Imports System.Collections
Imports System.Collections.Specialized
Public Class MainClass
Shared Sub Main(ByVal args As String())
Dim letter_stack As New Stack
' Add the letters to the stack.
For i As Integer = 0 To 10
Console.WriteLine(i)
letter_stack.Push(i)
Next
' Remove the letters from the stack.
Do While letter_stack.Count > 0
Console.WriteLine( DirectCast(letter_stack.Pop(), Integer) )
Loop
End Sub
End Class