Imports System.IO
 
Public Class Form1
    Inherits System.Windows.Forms.Form
 
    'Vom Windows Form Designer generierter Code
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim strurl As String = "G:\web.htm"
 
        Dim webPlaylist As New System.Net.WebClient()
        Dim stmPlaylist As System.IO.Stream = webPlaylist.OpenRead(strurl)
        Dim smrPlaylist As New StreamReader(stmPlaylist, _
          System.Text.Encoding.UTF8)
 
        Dim strRow As String
 
        While (smrPlaylist.Peek() > -1)
            strRow = smrPlaylist.ReadLine()
            Me.TextBox1.AppendText(strRow)
        End While
 
    End Sub
 
End Class