Determine How Many Child Objects Match a given Description

'The following example uses the ChildObjects method to retrieve a
set of child objects matching the description listed in the function
call and uses the method to display a message indicating how many
objects are found with the specified description: none, one (unique),
or several (not unique).

Public  Function CheckObjectDesription(parent, descr)

Dim oDesc

' Create description object
Set oDesc = Description.Create()
arProps = Split(descr, ",")
For i = 0 To  UBound(arProps)
arProp = Split(arProps(i), ":=")
    If  UBound(arProp) = 1 Then
      PropName = Trim(arProp(0))
      PropValue = arProp(1)
      oDesc(PropName).Value = PropValue
    End  If 

Next 

' Get all child objects with the given description
Set children = parent.ChildObjects(oDesc)

If children.Count = 1 Then
CheckObjectDesription = "Object Unique" 

ElseIf children.Count = 0 Then
CheckObjectDesription = "Object Not Found" 

Else
CheckObjectDesription = "Object Not Unique" 

End  If 

End  Function 

MsgBox CheckObjectDesription(Window("Flight Reservation"),_

"nativeclass:=Button", "text:=&Insert Order")

MsgBox CheckObjectDesription(Desktop, "nativeclass:=Notepad")