Прослушивание радио из Интернета

Imports System
Imports System.Windows.Forms
Imports System.Net
Imports System.IO
Imports System.Threading
 
Public Class Form1
    Public saveFileDialog1 As New SaveFileDialog
    Public thrDownload As Thread
    Public webRequest As HttpWebRequest
    Public webResponse As HttpWebResponse
    Public strLocal As FileStream
    Public strResponse As Stream
    Public Station = "http://stream02.media.rambler.ru/romantic128.mp3"
    Public potok As New WebClient
    Public ctThread As Threading.Thread = New Threading.Thread(AddressOf Download)
    Public wcDownload As New WebClient
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        saveFileDialog1.Title = "Select output file:"
        saveFileDialog1.Filter = "mp3 Files (*.mp3)|*.mp3"
        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            TextBox1.Text = saveFileDialog1.FileName
            Button2.Enabled = True
        End If
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If File.Exists(TextBox1.Text) Then
            File.Delete(TextBox1.Text)
        End If
        ctThread.Start()
        Button2.Enabled = False
        Button3.Enabled = True
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        webResponse.Close()
        strResponse.Close()
        strLocal.Close()
        ctThread.Abort()
            Button2.Enabled = True
            Button3.Enabled = False
    End Sub
 
    Public Sub Download()
 
        webRequest = DirectCast(Net.WebRequest.Create(Station), HttpWebRequest)
        webRequest.Credentials = CredentialCache.DefaultCredentials
        webResponse = DirectCast(webRequest.GetResponse(), HttpWebResponse)
        Dim fileSize As Integer = webResponse.ContentLength
        strResponse = wcDownload.OpenRead(Station)
        strLocal = New FileStream(saveFileDialog1.FileName, FileMode.Create, FileAccess.Write, FileShare.None)
        Dim bytesSize As Integer = 0
        Dim downBuffer As Byte() = New Byte(2048) {}
        While (bytesSize = strResponse.Read(downBuffer, 0, downBuffer.Length)) > 0
            strLocal.Write(downBuffer, 0, bytesSize)
        End While
 
    End Sub
 
    Private Sub textBox2_TextChanged(sender As Object, e As EventArgs)
        Station = textBox2.Text
    End Sub
End Class

While (bytesSize = strResponse.Read(downBuffer, 0, downBuffer.Length)) > 0

        Do
            bytesSize = strResponse.Read(downBuffer, 0, downBuffer.Length)
            strLocal.Write(downBuffer, 0, bytesSize)
        Loop While bytesSize

    Public thrDownload As Thread
    Public webRequest As HttpWebRequest
    Public webResponse As HttpWebResponse
    Public potok As New WebClient

Private Sub textBox2_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox2.TextChanged

ctThread = New Threading.Thread(AddressOf Download)

    Public ctThread As Threading.Thread
...
    Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        If File.Exists(TextBox1.Text) Then File.Delete(TextBox1.Text)
        ctThread = New Threading.Thread(AddressOf Download)
        ctThread.Start()
        Button2.Enabled = False
        Button3.Enabled = True
    End Sub