Вы можете использовать метод Пересечение , чтобы получить все элементы, которые они оба содержат.http://msdn.microsoft.com/en-us/library/bb460136.aspx
Это будет выглядеть примерно так.Приведенный ниже код не проверен.
For Each item in listbox2.items.Intersect(listbox1.items)
listbox3.item.add (item)
Next
РЕДАКТИРОВАТЬ: Таким образом, если посмотреть на него, кажется, что элементы - это коллекция объектов, которая не содержит пересечений.Чтобы обойти это, вы можете попробовать.
For Each item in listbox2.items.Cast(Of Enumerable).Intersect(listbox1.items.Cast(Of Enumerable))
listbox3.item.add (item)
Next
Не уверен, насколько быстро это будет, хотя