ITrkHolds.Count (read-only property)

property Count
Syntax: long*pVal = object.Count
The Count method will return the number of Holds defined for this item.


Dim oTrkItemAgent As Object
Dim oTrkItems As Object
Dim oTrkHold As Object
Dim oTrkHolds As Object

Set oTrkItemAgent = CreateObject("Tracker.TrkItemAgent")
oTrkItemAgent.Execute oTrkItems
Set oTrkItem = oTrkItems.Item(1)
Set oTrkHolds = oTrkItem.Holds
For j = 1 To oTrkHolds.Count
Set oTrkHold = oTrkHolds.Item(j)
msgbox oTrkHold.Name
Next j