[sooriaty03]

السلام عليكم ورحمة الله وبركاته

أخي الكريم

مائة حلقة تكرارية وعديناها ... يمكن في ببالك حاجة وحابب تعملها
أما مائة أداة ListBox :confused: هذي اللي ما انبلعت معي أبدا :mad:
ههههههههههه
ولأ كل هذا الجهد وفي النهاية ما تضيف إلا القيمة الأخيرة من الحلقات التكرارية :eek:

المهم تفضل هذا اختصار للكود بس إذا حصل شيء لجهازك ترى أنا أخلي كامل مسئوليتي

كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        For X1 As Integer = 0 To 100
            If X1 = 100 Then
                L1.Items.Add(X1)
            End If
            If X1 + 100 = 200 Then
                L2.Items.Add(X1 + 100)
            End If
            If X1 + 200 = 300 Then
                L3.Items.Add(X1 + 200)
            End If
            If X1 + 300 = 400 Then
                L4.Items.Add(X1 + 300)
            End If
            If X1 + 400 = 500 Then
                L5.Items.Add(X1 + 400)
            End If
                .
                .
                .
                .
                .
                .
            If X1 + 9900 = 10000 Then
                L100.Items.Add(X1 + 9900)
            End If
        Next
        'هنا لسان حال الجهاز يقول أوووووف أخيرا خلصت
End Sub

بالتوفيق