[مدري]

السلام عليكم
اود المساعده بعمل اكثر من حلقه تكراريه تنفذ في نفس الوقت
افكر اعمل اكثر من 100 حلقة تكراريه و اريدها تتنفذ في نفس الوقت

زي كذا

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For X1 As Integer = 0 To 100
            If X1 = 100 Then
                L1.Items.Add(X1)
            End If
        Next
        For X2 As Integer = 100 To 200
            If X2 = 200 Then
                L2.Items.Add(X2)
            End If
        Next
        For X3 As Integer = 200 To 300
            If X3 = 300 Then
                L3.Items.Add(X3)
            End If
        Next

    End Sub

من 0 الى 100
و من 100 الى 200
و من 200 الى 300
و هكذا
هل يوجد طريقه ل اختصار الكود لاني اود اعمل اكثر من 100 حلقه تكراريه
و اريدها تتنفذ في نفس الوقت

اتمنى فهمتو قصدي

و شكرا

خبل صح