ok grazie
adesso funziona però non capisco come fare a spostare la selezione dentro la listbox

cioè:
codice:
ab = ListBox1.SelectedItem <-- così mi scarica solo il primo file e appena finisce mi continua a scaricare quello
ab = ListBox1.SelectedItem(numX) <-- così mi da che l'URL non è giusto e si blocca tutto

questo è tutto il codice:
   Private Sub down_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles down.Click
        download = New WebClient
        Dim save As String
        Dim ab As String
        save = ListBox1.Text.Split("/"c)(ListBox1.Text.Split("/"c).Length - 1)
        If urltxt.Text = "http://" Then
            MsgBox("Riempi l'url!!", MsgBoxStyle.Critical)
        Else
            For numX = 1 To ListBox1.Items.Count()
                ab = ListBox1.SelectedItem
                flDow = True
                download.DownloadFileAsync(New Uri(ab), brwtxt.Text + save)
                While flDow
                    Application.DoEvents()
                    Thread.Sleep(20)
                End While
            Next
        End If
    End Sub
Ho provato pure con ListBox1.Select ma non funziona