VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Node"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"Collection1"
'local variable(s) to hold property value(s)
Private mvarfileName As String 'local copy
Private mvarnextNode As NodeList 'local copy
Private mvarattributes As Integer 'local copy
Public Property Let attributes(ByVal vData As Integer)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.attributes = 5
    mvarattributes = vData
End Property
Public Property Get attributes() As Integer
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.attributes
    attributes = mvarattributes
End Property
Public Property Set nextNode(ByVal vData As NodeList)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.nextNode = Form1
    Set mvarnextNode = vData
End Property
Public Property Get nextNode() As NodeList
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.nextNode
    Set nextNode = mvarnextNode
End Property
Public Property Let fileName(ByVal vData As String)
'used when assigning a value to the property, on the left side of an assignment.
'Syntax: X.fileName = 5
    mvarfileName = vData
End Property
Public Property Get fileName() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.fileName
    fileName = mvarfileName
End Property



