Private Sub Command1_Click()

WebBrowser1.Navigate "http://localhost/"

Timer1.Enabled = TrueEnd Sub

Private Sub Timer1_Timer()

Dim doc, objhtml As Object

Dim i As Integer

Dim strhtml As String

If Not WebBrowser1.Busy Then

Set doc = WebBrowser1.Document

i = 0

Set objhtml = doc.body.createtextrange()

If Not IsNull(objhtml) Then

Text1.Text = objhtml.htmltext

End If

Timer1.Enabled = False

End IfEnd Sub