VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "Class1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private arr() As Object

Public Sub insertFirst(o As Object)
    ReDim Preserve arr(arr.Length + 1)
    For i = arr.Length - 1 To 1
        arr(i) = arr(i - 1)
    arr(0) = o
End Sub

Public Sub insertLast(o As Object)
    ReDim Preserve arr(arr.Length + 1)
    arr(arr.Length - 1) = o
End Sub

Public Sub removeFirst()
    For i = arr.Length - 1 To 1
        arr(i) = arr(i - 1)
End Sub

Public Sub removeLast()
    ReDim Preserve arr(arr.Length - 1)
End Sub

Public Function first() As Object
    first = arr(0)
End Function

Public Function last() As Object
    last = arr(arr.Length - 1)
End Function