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

Dim m_FieldName As String
Dim m_LineNumber As Long

Public Fields As New clsFieldCol
Public Property Get FieldName() As String
  FieldName = m_FieldName
End Property
Public Property Let FieldName(ByVal Value As String)
  m_FieldName = Value
End Property
Public Property Get LineNumber() As Long
  LineNumber = m_LineNumber
End Property
Public Property Let LineNumber(ByVal Value As Long)
  m_LineNumber = Value
End Property
Private Sub Class_Terminate()
  Set Fields = Nothing
End Sub
