Delegate Sub DownLoadDelegate(ByVal url As String, ByVal file As String)
 
    Private Sub AsyncGetFileRequest(ByVal url As String, ByVal file As String)
        Dim wc As New System.Net.WebClient()
        Dim d As DownLoadDelegate = AddressOf wc.DownloadFile
        Dim iar As IAsyncResult = d.BeginInvoke(url, file, Nothing, Nothing)
        Do While Not iar.IsCompleted
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
        Loop
        d.EndInvoke(iar)
    End Sub