VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "infNameValueDef" 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" Private mName As String 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 Value(ByVal sValue As String) mValue = sValue End Property Public Property Get Value() As String Value = mValue End Property Public Property Let Name(ByVal sName As String) mName = sName End Property Public Property Get Name() As String Name = mName End Property