Dim intCount As Integer = Nothing
Dim intIndex As Integer = Nothing
Dim intMaxIndex As Integer = Nothing
Dim strItemText As String = Nothing
 
intCount = Listbox1.ObjectCollection.Count
intMaxIndex = intCount -1
 
For intIndex = 0 To intMaxIndex
 strItemText = Listbox1.Items(intIndex).GetItemText
 DownloadFile(strItemText)
Next