Sub btActualizar_Click
DownloadMany(Array("http://www.misitio.com/bd/comercios.db","http://www.misitio.com/bd/telefonos.db","http://www.misitio.com/bd/trasnsporte.db"))
End Sub
Sub DownloadMany (links As List)
For Each link As String In links
Dim j As HttpJob
j.Initialize("", Me) 'name is empty as it is no longer needed
j.Download(link)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
Msgbox("Current link: " & link ,"")
Log(j.GetString)
End If
ProgressBar1.Progress = 100 * (links.IndexOf(link) + 1) / links.Size
j.Release
Next
End Sub