'---- ประกาศ Namespace ที่จำเป็นต้องใช้ ดังนี้

Imports System.IO
Imports System.Net
Imports System.Text
Public Class Form1

'-------------------------------------------------

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLoadURL.Click

'Dim uri As New Uri("http://www.siam2dev.com")
Try
Dim URL As String = TxtURL.Text
Me.Cursor = Cursors.WaitCursor
Application.DoEvents()

Dim request As WebRequest = WebRequest.Create(URL)
Dim response As WebResponse = request.GetResponse()

Dim stream As Stream = response.GetResponseStream()
Dim reader As New StreamReader(stream)
Dim data As String = reader.ReadToEnd()
reader.Close()
stream.Close()
TxtHTML.Text = data

Catch ex As Exception
MsgBox(ex.Message)

End Try

Me.Cursor = Cursors.Arrow

End Sub
End Class