VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "clsItemCol"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Dim m_Col As New Collection
Public Function Add(ByVal FieldName As String, ByVal LineNumber As Long) As clsItemEl

Dim NewEl As New clsItemEl
  
  NewEl.FieldName = FieldName
  NewEl.LineNumber = LineNumber
  Call m_Col.Add(NewEl)
  Set Add = NewEl
  Set NewEl = Nothing

End Function
Public Sub Clear()

Dim i As Integer

  For i = 1 To Count
    Remove 1
  Next i

End Sub
Public Function Count() As Integer
  Count = m_Col.Count
End Function
Public Function Item(ByVal Index As Variant) As clsItemEl
Attribute Item.VB_UserMemId = 0
  If IsNumeric(Index) Then Index = CLng(Index)
  Set Item = m_Col(Index)
End Function
Public Sub Remove(ByVal Index As Variant)
  If IsNumeric(Index) Then Index = CLng(Index)
  Call m_Col.Remove(Index)
End Sub
Private Sub Class_Terminate()
  Clear
  Set m_Col = Nothing
End Sub
