VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "infArray" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = False Attribute VB_Exposed = True Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes" Attribute VB_Ext_KEY = "Top_Level" ,"Yes" Public Enum ArrayTypes atBYTE_ARRAY atWORD_ARRAY atTABLE_ARRAY atSTRING_ARRAY End Enum Private mName As String Private mAType As ArrayTypes Private mValue As String Private mComments As New infComments Public Property Set Comments(ByVal vData As infComments) Dim cm As infComment For Each cm In vData mComments.Add cm.Text Next End Property Public Property Get Comments() As infComments Set Comments = mComments End Property Public Property Let Name(ByVal vData As String) mName = vData End Property Public Property Get Name() As String Name = mName End Property Public Property Let AType(ByVal vData As ArrayTypes) mAType = vData End Property Public Property Get AType() As ArrayTypes AType = mAType End Property Public Property Let Value(ByVal vData As String) mValue = vData End Property Public Property Get Value() As String Value = mValue End Property