Program to List all links in the web page

Set ODec = Description.Object()
ODec(“Class Name”).value = “Link”
Set Colink = Browser(Obj).Page(Obj)..childobjects(ODec)
Nocollink = Colink.count()
For i =0 to Nocolink -1 Step 1
Colink(i).select
Msgbox colink(i)
‘i = i+1
Next