Collection Stack Example

Imports System
Imports System.Collections.Generic
Imports System.Collections
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms

Namespace CollectionStackExample1
    Public Partial Class Form1
        Inherits Form

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
            Dim days As Stack = New Stack()
            days.Push("SunDay")
            days.Push("MonDay")
            days.Push("TueDay")
            days.Push("WedDay")
            days.Push("ThuDay")
            days.Push("FriDay")
            days.Push("SaturDay")

            If days.Count = 7 Then
                MessageBox.Show(days.Pop().ToString())
            Else
                MessageBox.Show("SaturDay does not exist")
            End If
        End Sub
    End Class
End Namespace