Dim httpclient As New WebClient
For i As Integer = 0 To ListView1.Items.Count - 1
  Reihe += 1                
  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.DownloadFile(New Uri(Link), sLocalFile)
next i