Option Strict On

Imports System

Imports System.Collections.Generic

Public Module Module1

    Public Sub Main()

        'Declare a Stack(Of String) to represent a deck of cards

        Dim deck As Stack(Of String) = New Stack(Of String)

​

        'Add three items to the top of the deck

        deck.Push("Jack of Hearts")

        deck.Push("Ace of Spades")

        deck.Push("Two of Clubs") 'This is the top-most item

​

        Console.WriteLine(deck.Pop())

    End Sub

End Module