Dim WithEvents HttpClient As New WebClient
Dim Reihe As Integer
Dim args As New Dictionary(Of String, Object)
Dim Down_Datei As Integer = -1
 
For i As Integer = 0 To ListView1.Items.Count - 1
                     args.Add(i, ListView1.Items(i).SubItems(3).Text)
                Next
                Call Download()
 
Private Sub Download()
        Down_Datei += 1
        Dim link As String = args(Down_Datei)
        Dim sLocalFile As String = Path_mp3 & ListView1.Items( _
          Down_Datei).SubItems(1).Text & " - " & ListView1.Items( _
          Down_Datei).SubItems(0).Text & ".mp4"
        HttpClient.DownloadFileAsync(New Uri(link), sLocalFile)
    End Sub
 
Private Sub Download_Fertig(ByVal sender As Object, ByVal e As _
  System.ComponentModel.AsyncCompletedEventArgs) Handles _
  HttpClient.DownloadFileCompleted
        Reihe += 1
        ProgressBar1.Value = 0
        If Reihe < args.Count Then Download()
    End Sub