All pastes #491874 Raw Edit

Someone

public text v1 · immutable
·published 2007-05-16 21:56 UTC
rendered paste body
Private Sub Command1_Click()

Dim i As Long, EHTML
For i = 1 To WebBrowser1.document.All.length
Set EHTML = WebBrowser1.document.All.Item(i)
Next i

MsgBox EHTML

End Sub

Private Sub Form_Load()
    WebBrowser1.Navigate2 "www.google.com"
    End Sub