Hmm biraz garip olacak ama uzun bir süredir uğraşıyordum bu sorunla ancak şimdi çözebildim ve kodu sizlerle paylaşmak istedim umarım birilerinin daha işine yarar :

Dim arrlist() As String
Dim cnt As Integer

cnt = ListBox1.SelectedItems.Count - 1
ReDim arrlist(cnt)

ListBox1.SelectedItems.CopyTo(arrlist, 0)
ListBox2.Items.AddRange(arrlist)

Bu arada üzrinde çalıştığım proje şirketlerde çalışan personelin performans değerlendirmesi için yöneticelere destek sağlayan bu işlemle beraber çeşitli raporlar sunan bir proje olacak. Veritabanı olarak Sql server kullanacağım. İlgilenen, yardımcı olmak isteyenler bana ulaşabilirler. Daha sonra eğer bitirebilirsem "Visual Basic .NET Örnekleri ve Uygulamaları" başlığı altında paylaşacağım. Herkese kolay gelsin