TrkItems.Count (read-only property)

property Count
Syntax: Long = object.Count
Returns the total number of TrkItem objects in this collection. The return value is zero if the collection is empty.


Dim oTADBRoot As Object
Dim oTrkItem As Object
Dim idx As Long

Set oTADBRoot = CreateObject("TADB.TADBRoot")

If oTADBRoot Is Nothing Then
   MsgBox "Root Object is not created"
End If

oTADBRoot.Load "TRK7", ""

idx = oTADBRoot.TrkItems.Count
MsgBox "Total Items in collection :" & idx