For i As Integer = 0 To ListView1.Items.Count - 1
                Reihe += 1
                HttpClient = New WebClient
                Dim Link As String = ListView1.Items(i).SubItems(3).Text
                Dim sLocalFile As String = "C:\Users\CD\Desktop\Neuer Ordner\" _
                  & ListView1.Items(i).SubItems(1).Text & " - " & _
                  ListView1.Items(i).SubItems(0).Text & ".mp4"
                HttpClient.DownloadFileAsync(New Uri(Link), sLocalFile)
            Next