Count links in web page

Set objGmail =description.Create

objGmail("html tag").Value ="A"
'objGmail("Class Name").Value="Link"

Set objMail=Browser("Gmail: Email from Google").Page("Gmail: Email from Google").ChildObjects(objGmail)

objCB=objMail.count

msgbox objCB