Dim results As List
results.Initialize
For Each url In urls
Download(url, results)
Next
Do While results.Size < urls.Size
Sleep(500)
Loop
Dim success As Boolean = True
For Each result As Boolean In results
If result = False Then success = False
Next
Log(success)
Private Sub Download(url As String, results As List)
'regular download using HttpJob
results.Add(job.Success)
End Sub