Would like it so it will read a textfile, for links and download one line at a time, one afer the other.

Code:
If DownloadedBytes = 0 Then
Label2.Caption = "Couldn't connect"
DoEvents
Else
If DownloadedBytes > 0 And DownloadedBytes <> TotalBytes Then
Label2.Caption = "Connection lost"
DoEvents
End If
End If
End If
End Sub

Private Sub DL_Progress(DownloadedBytes As Long, TotalBytes As Long, sId As String)
If DownloadedBytes > 0 Then
Label2.Caption = "Downloading file"
PB.value = (DownloadedBytes * 100) / TotalBytes
Label1.Caption = (DownloadedBytes / 1000) & " KB / " & (TotalBytes / 1000) & " KB"
End If
End Sub

Private Sub Form_Load()
DL.Download "http://rapidshare.com/files/126666391/i386.rar", App.Path + "\file.rar"
Label2.Caption = "Connecting..."
End Sub