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 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 |