GetHTMLSource

Private Sub Command1_Click()
On Error Resume Next
Dim txt As String
Dim b() As Byte
Command1.Enabled = False
b() = Inet1.OpenURL(URL.Text, 1)
txt = ""
For t = 0 To UBound(b) - 1
txt = txt + Chr(b(t))
Next

RichTextBox1.Text = txt
Command1.Enabled = True
Exit Sub
End Sub