property Components.Count as Long
Returns the number of components in the collection.

TypeDescription
Long A Long expression that specifies the number of Component objects in the Components collection.
The Count property indicates the number of components in the collection. The Item property accesses the Component giving its index. The Item / Count properties can be used to enumerate the Components collection as well as for each statement. The Enumerate method enumerates the components in the collection whose name matches the giving mask. The Remove method removes a component from the Components collection. The Clear method clears 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
Next

and 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