[Zuhare]

تعديل

كود :

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 = ""
           If i < lst2.Count Then itm2  =  lst2(i)
           ListBox1.Items.Add(itm1)
           ListBox2.Items.Add(itm2)
       Next
   End Sub
End Class