Extending product function with VBA : System Architect collections : SAObjects class : IsMoreThan(Index)
  
IsMoreThan(Index)
Returns true if there are more items in the collection than the current value of the index; used when reading through a collection one by one.
Parameters
Data type: Boolean
Example
Dim coll As SAObjects, i As long
Set coll = sa.Encyclopedia.GetAllDiagrams
i = 1
Do While coll.IsMoreThan(i)
i = i +1
Loop
See also
SAObjects class