Public Class Application Private Shared TotalSize As Integer Private Shared DataStack(2) As Integer Private Shared SourceData(2) As Integer Private Shared Function Push(NewData As Integer) As Integer If TotalSize <= UBound(DataStack) Then TotalSize = TotalSize + 1 DataStack(TotalSize) = NewData End If Return TotalSize End Function Private Shared Function Pop() As Integer Dim TempData As Integer = -999 If TotalSize >= 0 Then TempData = DataStack(TotalSize) TotalSize = TotalSize - 1 End If Return TempData End Function Private Shared Sub Empty() TotalSize = -1 End Sub Private Shared Function GetSize() As Integer Return TotalSize + 1 End Function Public Shared Sub Main() Dim i As Integer Dim TempData As Integer Me.TotalSize = -1 Me.SourceData(0) = 12 Me.SourceData(1) = 6 Me.SourceData(2) = 18 For i=0 To UBound(Me.SourceData) System.Console.WriteLine(Me.SourceData(i)) Me.Push(SourceData(i)) Next For i=0 To UBound(Me.DataStack) TempData = Pop() System.Console.WriteLine(TempData) Next End Sub End Class