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

Dim m_Name As String
Dim m_Trailer As String
Dim m_Precision As Integer

Public Fields As New clsFieldCol
Public Property Get Precision() As Integer
  Precision = m_Precision
End Property
Public Property Let Precision(ByVal Value As Integer)
  m_Precision = Value
End Property
Public Property Get Trailer() As String
  Trailer = m_Trailer
End Property
Public Property Let Trailer(ByVal Value As String)
  m_Trailer = Value
End Property
Private Sub Class_Terminate()
  Set Fields = Nothing
End Sub
Public Property Get Name() As String
  Name = m_Name
End Property
Public Property Let Name(ByVal Value As String)
  m_Name = Value
End Property
