Do
set oDesc = Description.Create()
oDesc("file name").Value = "MiddlePlus.gif"
oDesc("name").Value = "Image"
Set Images = Browser("").Page("").ChildObjects(oDesc)
NumberOfLists = Images.Count()
For i = 0 To NumberOfLists - 1
Images(i).click
Next Loop while oDesc("file name").Value = "MiddlePlus.gif"=false