01.Dim client As WebClient
02.
03.Private Sub MainPage_Loaded(sender As Object, e As System.Windows.RoutedEventArgs)
05. Dim uri As New Uri(url)
06. client = New WebClient()
07. client.AllowReadStreamBuffering = True
08.
09. AddHandler client.DownloadStringCompleted, AddressOf client_DownloadStringCompleted
10. AddHandler client.DownloadProgressChanged, AddressOf client_DownloadProgressChanged
11.
12. client.DownloadStringAsync(uri)
13.
14.End Sub
15.
16.Private Sub client_DownloadStringCompleted(sender As Object, e As DownloadStringCompletedEventArgs)
17.
18.End Sub
19.
20.Private Sub client_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs)
21.
22.End Sub
ลองดูครับ ทำได้หลากหลายวิธีครับ ได้วิธีไหนดี ๆ ลองเอามาแชร์กันดูครับ 
