主题：如何能历遍IE中的所有元素

 如题代码如下：

Dim OjbIe As Object = CreateObject("InternetExplorer.Application")
With OjbIe
    .Visible = 1
    .Navigate("http://www.foxtable.com/")
    Application.DoEvents
    Do While .Busy
        Application.DoEvents
    Loop
    Dim DoM As Object = .Document
    With DoM     
        Dim hec As System.Windows.Forms.HtmlElementCollection = .GetElementsByTagName("li") '获得当前页面的HTML元素集合
        Output.show(50)
        For i As Integer = 0 To hec.Count-1 '循环所有元素
            Output.show(hec(i).OuterHtml)
        Next
    End With
End With

老师 有项目必须用到IE ，想历遍IE中的所有元素，但到取集全就出错，请问要如何才能历遍所有的元素？

 老师

     GetElementsByTagName（"HTML")

也会报错，今天试了一个下午都不行，哪位好心的高手指点我一下可以吗？