ITrkHold.Class (read-only property)

property Class
Syntax: LONG*pnClass = object.Class
The Class property is the class of the named hold. This class value of a hold is 2.

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
Set oTrkHold = oTrkHolds.Item(1)
msgbox oTrkHold.Class