loDoc = thisform.oBrowser.Document.Frames(3).Document n = 0 for i = 0 to loDoc.Links.Length - 1 lcLink = loDoc.Links(i).HREF if ( "xworks.exe?2,15," $ lcLink ) n = n + 1 dimension lalinks[n] laLinks[n] = lcLink endif endforThis is operating only on a subset of the links in loDoc but you should be able to iterate through all frames and iterate all links/frame. I use the stored HREF value to either set URL or call the Navigate() method.
>For Each link In thisform.olecontrol1.document.links > if thisform.whatlinks='Innertext' > m.links=allt(link.innertext) > else > m.links=allt(link.outertext) > endif > m.linkstring=allt(link.toString) > insert into weblinks from memvar >Next link >