DimvDoc,vTag DimiAsInteger SetvDoc=WebBrowser1.Document List1.Clear Fori=0TovDoc.All.length-1 IfUCase(vDoc.All(i).tagName)="A"Then SetvTag=vDoc.All(i) List1.AddItemvTag.innertex