Finding All List Objects on a Web Page

'The following example uses the ChildObjects method to find all the list objects 

on a Web page, and then to select an item in each list.

Set oDesc = Description.Create()
    oDesc("micclass").Value = "WebList" 

Set Lists=Browser("Mercury Interactive").Page("Mercury Interactive").ChildObjects(oDesc)

    NumberOfLists = Lists.Count()

For i = 0 To NumberOfLists - 1
    Lists(i).Select i + 1
Next