

| Type | Description | |||
| Long | A Long expression that specifies the number of Component objects in the Components collection. |
The following code enumerates the components of the root component:
Dim c As Variant
For Each c In ICalendar1.Root.Components
Debug.Print c.Name
Nextand it's equivalent with the following snippet:
Dim i As Long
With ICalendar1.Root.Components
For i = 0 To .Count - 1
Debug.Print .Item(i).Name
Next
End With