Option Explicit
Private liste As Collection
Public Sub Main()
Set liste = New Collection
Temizle
End Sub

Public Function push(ByVal x As Variant) As Variant
liste.Add x
push = x
End Function

Public Function pop() As Variant
Dim x As Variant
x = liste(liste.Count)
liste.Remove liste.Count
pop = x
End Function


Public Sub Temizle()
Dim i As Integer
For i = 1 To liste.Count
liste.Remove liste.Count
Next
End Sub

Option Explicit
Public yigin As pstack.stack
Public liste As Variant

Private Sub Command1_Click()
List1.AddItem yigin.push(Text1.Text)
Text1.Text = ""
Text1.SetFocus
End Sub

Private Sub Command2_Click()
On Error Resume Next
MsgBox yigin.pop & Chr(13) & "listeden atıldı."
List1.RemoveItem (List1.ListCount - 1)
Text1.SetFocus
End Sub

Private Sub Command3_Click()
yigin.Temizle
List1.Clear
Text1.SetFocus
End Sub

Private Sub Form_Load()
Set yigin = New pstack.stack
yigin.Main
End Sub