[justforit]

عملت مثال بسيط لعل المشكلة تتضح

كود :

Public Class Form1
   Dim lst1 As New List(Of String) From {"1", "2", "3", "4"}
   Dim lst2 As New List(Of String) From {"1", "2", "3"}
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim i As Integer
       For i = 0 To lst1.Count - 1
           Dim itm1 As String = lst1(i)
           Dim itm2 As String = IIf(lst1.Count = lst2.Count, lst2(i), "")
           ListBox1.Items.Add(itm1)
           ListBox2.Items.Add(itm2)
       Next
   End Sub
End Class

انا متاكد اني ناسي شي لكن الى الان لم يتضح لي شي 

لان الكود اللي كتبته بالعادة يعالج الخطأ خصوصا السطر:

كود :

Dim itm2 As String = IIf(lst1.Count = lst2.Count, lst2(i), "")

العد بناء على عدد القائمة الاولى وهي اكثر من الاخرى فالمشكلة حتمية لكن ماهو حلها