Dim i As Double
 
ListBox1.SelectedIndex = 0 'Erste Zeile in Listbox markieren
 
For i = ListBox1.SelectedIndex.ToString - 1
 
My.Computer.Network.DownloadFile("ftp://" & lbl_Benutzername.Text & ":" & _
lbl_Serverkennwort.Text & "@" & lbl_Server_IP2.Text & lbl_Serverordner.Text &  _
ListBox1.SelecedItem.ToSting, "C:\Testordner\" & ListBox1.SelectedItem.ToString)
 
i = i + 1 'Zählervariable um 1 erhöhen
 
ListBox1.SelectedIndex + = 1 'Nächste Zeile in ListBox markieren
 
Next