Private Sub Form_Load()
   Call wb.Navigate("www.google.com")
End Sub

Private Sub wb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    If (pDisp Is wb.object) Then Call LoadPageIntoTree
End Sub

Private Sub LoadPageIntoTree()
   Dim i        As Integer
   Dim nodeObj  As Node
   tvwView.Nodes.Clear
   For i =  0  To wb.Document.All.length -  1 
       If wb.Document.All(i).tagName = "HTML" Then
           Exit For
       Else
           Set nodeObj = tvwView.Nodes.Add(, , _
               "k" & wb.Document.All(i).sourceIndex, _
               wb.Document.All(i).tagName, _
               IIf(wb.Document.All(i).children.length =  0 ,  3 ,  2 ))
                   
           nodeObj.ExpandedImage =  1 
       End If
   Next
   If i = wb.Document.All.length -  1  Then Exit Sub
   Call ParseAndDisplay(wb.Document.All(i))
   Set nodeObj = Nothing
End Sub

Private Sub ParseAndDisplay(htmlObj As HTMLHtmlElement)
   On Error Resume Next
   Dim nodeObj  As Node
   Dim childObj As HTMLHtmlElement
    With tvwView
       If htmlObj.parentElement Is Nothing Then
           Set nodeObj = .Nodes.Add(, , "k" & htmlObj.sourceIndex, htmlObj.tagName,  2 )
           nodeObj.ExpandedImage =  1 
       Else
           Set nodeObj = .Nodes.Add("k" & htmlObj.parentElement.sourceIndex, tvwChild, _
               "k" & htmlObj.sourceIndex, htmlObj.tagName, _
               IIf(htmlObj.children.length =  0 ,  3 ,  2 ))
           nodeObj.ExpandedImage =  1 
       End If
       If htmlObj.children.length =  0  Then Exit Sub    'no children, exit sub
       For Each childObj In htmlObj.children
           Call ParseAndDisplay(childObj)
       Next
   End With
   Set nodeObj = Nothing
   Set childObj = Nothing
End Sub