VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNone MTSTransactionMode = 0 'NotAnMTSObject END Attribute VB_Name = "IProperty" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = True Attribute VB_PredeclaredId = False Attribute VB_Exposed = False Public Enum PropertyTypes ptInteger = 0 ptString = 1 ptObject = 2 ptFunction = 3 End Enum ' ' Property class ' Public Name As String Public PType As PropertyTypes Public Value As String