Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim w As New Net.WebClient()
Dim sr As New IO.StreamReader(w.OpenRead("http://google.com"))
Dim strSource As String = sr.ReadToEnd
sr.DiscardBufferedData()
sr.Close()
w.Dispose()
TextBox1.AppendText(strSource)
End Sub