پياده سازي پشته با vb (ديگه ديونه شدم !!!)

سلام
ميخواهم پته رو با vB ‌درست كنم حالا مشكلم اينه كه : نميتونم اين پشته ها رو كه دارم مينويسم رو توي ليستم اضافه نميشه ؟ بايد چكار كنم . اها راستي هر كدومتون برنامه هاي پشته و صف رو با وي بي داره بزاره :11:

کد:

---

Dim n As Byte
Dim top1 As Byte
Dim stack(5) As Integer
Private Sub Form_Load()
n = 5
top1 = 0
End Sub
Private Sub pushstack(ByVal k As Integer)
If top1 = n Then
    Print "stack full"
Else
    top1 = top1 + 1
    stack(top1) = k
End If
End Sub
Private Sub PUSH_Click()
List1.AddItem pushstack(Val(Text1.Text))
End Sub

---

كسي نبود ما رو راهنمايي كنه ؟