Public Property Get IsEmpty( _
    ) As Boolean    Assuming
       Dim stkTemp As New Stack
       stkTemp.Push 1
    for example
       stkTemp.IsEmpty = FalseExample:     Dim stkTemp As New Stack
    ' Fill
    Dim intCount As Integer
    For intCount = 1 To 5
       stkTemp.Push intCount
    Next intCount
    ' Remove
    Dim varValue As Variant
    Do Until stkTemp.IsEmpty
        Debug.Print stkTemp.Pop(varValue)
        Debug.Print varValue
    LoopSee also: Count PropertyReturn value: Property returns True if the Stack is currently empty, and it returns False if the Stack contains one or more items.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.