VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "IObjects"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private mcolObjects As Collection
Private ObjectName As String
Private ShortName As String ' null if missing or property assignment
Private ClassName As String
Private ParentName As String
Private Properties As Collection
Private Attributes As Collection

' Methods of the Objects collection class.
Public Function Add(Code As String) As IObject

    Dim objNew As New IObject
    Static intObjNum As Integer
    
    ParseObject Trim(Code)
    
    ' Using With makes your code faster and more concise
    With objNew
        .Name = ObjectName
        .ClassName = ClassName
        .ParentName = ParentName
        .ShortName = ShortName
        '
        ' add props and attribs
        '

        mcolObjects.Add objNew, .Name
    End With
    ' Return a reference to the new Employee.
    Set Add = objNew
End Function

Public Function Count() As Long
   Count = mcolObjects.Count
End Function

Public Sub Delete(ByVal Index As Variant)
   mcolObjects.Remove Index
End Sub

'
' Parse the Object code
'
Private Sub ParseObject(sCode As String)
    Dim st As Long
    Dim ch As Long
    
    For sChar = 1 To Len(sCode)
    Next sChar
    
End Sub

