Stack: Push, Pop and Peek : Stack « Collections « VB.Net Tutorial

1. VB.Net Tutorial
2. Collections
3. Stack

Option Strict On
 Imports System
 Imports System.Collections
 Class Tester
     Public Shared Sub DisplayValues(ByVal myCollection As IEnumerable)
         Dim o As Object
         For Each o In myCollection
             Console.WriteLine(o)
         Next o
     End Sub 'DisplayValues

     Shared Sub Main( )
         Dim intStack As New Stack( )

         ' populate the stack
         Dim i As Integer
         For i = 0 To 7
             intStack.Push((i * 5))
         Next i

         ' Display the Stack.
         Console.WriteLine("intStack values:")
         DisplayValues(intStack)

         ' Remove an element from the stack.
         Console.WriteLine("(Pop){0}", intStack.Pop( ))

         ' Display the Stack.
         Console.WriteLine("intStack values:")
         DisplayValues(intStack)

         ' Remove another element from the stack.
         Console.WriteLine("(Pop){0}", intStack.Pop( ))

         ' Display the Stack.
         Console.WriteLine("intStack values:")
         DisplayValues(intStack)

         ' View the first element in the
         ' Stack but do not remove.
         Console.WriteLine("(Peek)   {0}", intStack.Peek( ))

         ' Display the Stack.
         Console.WriteLine("intStack values:")
         DisplayValues(intStack)
     End Sub 'Main
 End Class 'Tester

intStack values:
35
30
25
20
15
10
5
0
(Pop)35
intStack values:
30
25
20
15
10
5
0
(Pop)30
intStack values:
25
20
15
10
5
0
(Peek)   25
intStack values:
25
20
15
10
5
0