Private Sub downloadFile(ByVal url As String, ByVal fileName As String)
        Dim webRequest As HttpWebRequest
        Dim webResponse As HttpWebResponse
        Dim imagepath As String = "E:\Anime\" & fileName
        Dim writeStream As New IO.FileStream(imagepath, IO.FileMode.Create)

        webRequest = HttpWebRequest.Create(url)
        webResponse = webRequest.GetResponse()

        Dim fileSize As Integer
        fileSize = webResponse.ContentLength
        Dim nRead As Integer
        nRead = 0
        Dim buffer(4096) As Byte
        Dim blockSize As Integer
        Dim tempStream As New MemoryStream

        Dim updateProgressBarDelegateSafe As New updateProgressBarDelegate(AddressOf updateProgressBar)
        Invoke(updateProgressBarDelegateSafe, 0)

        Do
            Dim readBytes(4095) As Byte
            blockSize = writeStream.Read(buffer, 0, 4096)
            Dim bytesread As Integer = webResponse.GetResponseStream.Read(readBytes, 0, 4096)
            nRead += bytesread
            If bytesread = 0 Then Exit Do
            writeStream.Write(readBytes, 0, bytesread)
            Dim percent As Short = (nRead * 100) / fileSize
            lblProgress.Text = percent.ToString
            Invoke(updateProgressBarDelegateSafe, percent)
            lblProgress.Text = percent.ToString
        Loop
       ' MsgBox("Done")
        webResponse.Close()
        writeStream.Close()
    End Sub

    Dim wc As New Net.WebClient  
    wc.DownloadFileAsync(New Uri("http://"), localFile)  

        
        Dim wc As New Net.WebClient
         AddHandler wc.DownloadFileCompleted, AddressOf wc_DownloadFileCompleted
        wc.DownloadFileAsync(New Uri("http://img.4chan.org/b/res/90218658.html"), "1223660956.gif")

Public Sub wc_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
        MsgBox("Completed")

    End Sub

Dim wc As New Net.WebClient
      
        wc.DownloadFile(New Uri("http://orz.4chan.org/wg/6.html"), "1223753402.jpg")

        '   wc.Dispose()
        MsgBox("done")