Sub NextDownload(ByVal RapidShare As Boolean)
        If Downloads.Count >= maxdownloads.Value Then Exit Sub
        For Each Lw As ListViewItem In ListView1.Items            
If Lw.Tag = "RS" Then
                If RapidShare Then
                    Dim R As RapidShareItem = Lw
                    If R.Status = RsDownloader._Status.Ready Then
                        R.Start()
                        Exit Sub
                    End If
                End If
            Else
                If Not RapidShare Then
                    Dim F As FileDownloadItem = Lw
                    If F.Status = FileDownloadItem.eStatus.Ready Then
                        F.Start()
                        Exit Sub
                    End If
                End If
            End If
        Next
    End Sub