Dim sURL As String
        Dim BUFFERLENGTH As Integer = 4000
        Dim bufferX(BUFFERLENGTH) As Byte
        Dim flSize As Integer = 0
        Dim bytesReadX As Integer = 0
        sURL = txtLink.Text
        Dim wrGETURL As WebRequest
        wrGETURL = WebRequest.Create(sURL)

        Dim myProxy As New WebProxy("myproxy", 80)
        myProxy.BypassProxyOnLocal = True
        Dim contents As Stream = wrGETURL.GetResponse.GetResponseStream

        While flSize <> -1
            flSize = contents.Read(bufferX, 0, BUFFERLENGTH)
            If flSize = 0 Then Exit While
            bytesReadX += flSize
            txtFileSize.Text = FormatNumber((bytesReadX / 1024), 2) & " kb"
            If flSize < BUFFERLENGTH Then
                Dim buff(flSize) As Byte
                Array.Copy(bufferX, buff, flSize)
                buff = Nothing
            Else

            End If
            Array.Clear(bufferX, 0, flSize)
        End While