VERSION  1 . 0  CLASS
BEGIN
  MultiUse = - 1   'True
  Persistable =  0   'NotPersistable
  DataBindingBehavior =  0   'vbNone
  DataSourceBehavior  =  0   'vbNone
  MTSTransactionMode  =  0   'NotAnMTSObject
END
Attribute VB_Name = "Leaf"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public Value As Double
Attribute Value.VB_VarUserMemId =  0 

Public Sub Test()
 Dim c As Collection
 Set c = New Collection
 c.Add New Leaf, "L1"
 c.Add New Leaf, "L2"
 Debug.Print c( 1 ), c("L2") 'напечатает 0      0
 c( 1 ) = c( 1 ) +  1 
 c("L2") =  2 
 Debug.Print c( 1 ), c("L2") 'напечатает 1      2
End Sub