ISCollection.Item

Description

Each of the objects within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISCollection	The `object` always implements the ISCollection interface
`aIndex`	In, Required	int	The index of the object within the collection

Restriction: This property is readonly.

Return Value

object

Example

Display each of the objects within the collection.

Dim aDiseases, aDisease
Dim aMessage
Dim i

Set aDiseases = Profile.LoadDiseaseCodes 'Collection of ISDisease

aMessage = "Diseases Count: "  & aDiseases.Count

for i = 0 to aDiseases.Count - 1 
  set aDisease = aDiseases.Item(i)
  aMessage = aMessage & vbNewLine &_
    aDisease.Description & " (" & aDisease.Code & ")"
next 

Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.8.0