[سعود]

بارك الله فيك
انا احاول استفيد من كل سطر بالاكواد  وهذه الاكواد ممتازة باذن الله سادقق فيها اكثر من مرة.

ما رايك بالكود التالي؟  توصلت له لتوي .
هل ينفع لو طبقناه على الاجزاء الخاصة بالملف البعيد بحيث يتم التحميل كلية في آن واحد؟ اذ هو المقصد. .سنرى باذن الله تعالى.
على فكرة الاكواد التالية ليست هي المطلوبة بشكل دقيق بل تحتاج تعديل لنعتبر كل شريط جزء من ملف يفترض  ان الشريط الثاني يبدا من النقطة المخصصة له و هكذا
دعواتكم حفظكم الله.

PHP كود :

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim ths As New List(Of Threading.Thread)
        Dim d As New Dictionary(Of ProgressBar, Label)
        Dim pros As New List(Of ProgressBar)
        Dim lbls As New List(Of Label)
        For Each cl As Control In Me.Controls
            Dim prog As ProgressBar = Nothing
            Dim lbl As Label = Nothing
            If TypeOf cl Is ProgressBar Then
                prog = DirectCast(cl, ProgressBar)
                pros.Add(prog)
            ElseIf TypeOf cl Is Label Then
                lbl = DirectCast(cl, Label)
                lbls.Add(lbl)
            End If
        Next
        For r As Integer = 0 To pros.Count - 1
            d.Add(pros(r), lbls(r))
        Next
        For i As Integer = 0 To d.Count - 1
            Dim th As Threading.Thread
            th = New Threading.Thread(AddressOf all)
            ths.Add(th)
        Next
        For h As Integer = 0 To ths.Count - 1
            Dim co(2) As Control
            co(0) = d.Keys(h)
            co(1) = d.Values(h)
            Dim t As Threading.Thread = ths(h)
            t.Start(co)
        Next
    End Sub