Function Get_All_Runtime_Objects(TestObject, RuntimeObjects)
Dim Parent, Desc, Props, PropsCount
If IsEmpty(TestObject.GetTOProperty("parent")) Then
Set Parent = Desktop
Else
Set Parent = TestObject.GetTOProperty("parent")
End If
Set Desc = Description.Create
Set Props = TestObject.GetTOProperties
PropsCount = Props.Count - 1
For i = 0 to PropsCount
Desc(Props(i).Name).Value = Props(i).Value
Next
Set RuntimeObjects = Parent.ChildObjects(Desc)
Get_All_Runtime_Objects = RuntimeObjects.Count
End Function
Function HightLight_All_Object(TestObject)
Dim allRuntimeObjects
Dim objIndex, objNum
objNum = Get_All_Runtime_Objects(TestObject, allRuntimeObjects)
For objIndex = 0 to ObjNum-1
allRuntimeObjects.Item(objIndex).click
Next
End Function