Public Function NextObject() As CiObject

Public Sub T_IterateObjects(ByRef Tools As CiTools)
    Dim Obj As CiObject
    Set Obj = Tools.FirstObject    
    Do While Not Obj Is Nothing
      ' TODO:  Do something with Obj using Object properties
      Debug.Print  _
        "   Rect lt=" & Obj.Rect.left & ":" & Obj.Rect.top & _
        "  rb=" & Obj.Rect.right & ":" & Obj.Rect.bottom & _
        "   Pixels=" & Obj.pixels & "   Intervals=" & Obj.Intervals
       Set Obj = Tools.NextObject
    Loop
End Sub