VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Subords"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
'Klasa Subords
'Tworzy wyliczenie elementów kolekcji
Private subNames As Collection    'Kolekcja
Private index As Integer          'Wewnętrzny indeks klasy
'--------
Public Sub moveFirst()
  index = 1
End Sub
'--------
Public Function hasMoreElements()
  hasMoreElements = index <= subNames.count
End Function
'--------
Public Function nextElement() As Object
  Set nextElement = subNames(index)
  index = index + 1
End Function
'--------
Private Sub Class_Initialize()
  Set subNames = New Collection
  index = 1
End Sub
'--------
Public Sub add(obj As Object)
  subNames.add obj
End Sub
'--------
Public Function element(i As Integer) As Object
  Set element = subNames(i)
End Function
'--------
Public Function count() As Integer
  count = subNames.count
End Function
