Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim data As String
        Dim data2 As String
        Try
            data = CType(AxInet1.OpenURL(TextBox1.Text), String)
            data2 = data.Replace(ControlChars.Lf, ControlChars.CrLf)
            TextBox2.Text = data2
        Catch ex As Exception
            MsgBox(ex)
        End Try
    End Sub

用的是inet。不过我决心用.net里面的新控件了。webb*r和inet始终是属于vb6时代。