//linkcount
Function getlinkcount(funcBrowser ,funcPage)
Set Linkobj = Description.Create()
Linkobj("html tag").value="A"
Set Links = Browser(funcBrowser).Page(funcPage).ChildObjects(Linkobj)
NumberOfLinks = Links.Count()
msgbox NumberOfLinks
End Function
//to click on a link
Function linkclick(funcPage,funcLink)
Set Linkobj = Description.Create()
Linkobj("html tag").value="A"
Browser(Browsername).page(funcpage).Link(funclink).Click
End Function