Soru Listboxtan Listboxa benzersiz veri aktarma

[sirkülasyon]

Private Sub ListBox3_Click()
ReDim myarr(0 To 8, 0 To 0)
If ListBox4.ListCount - 1 >= 0 Then myarr = ListBox4.Column
ReDim Preserve myarr(0 To 8, 0 To ListBox4.ListCount)
For i = 0 To 8
    myarr(i, ListBox4.ListCount) = ListBox3.Column(i)
Next
ListBox4.Clear
ListBox4.Column = myarr
End Sub

Siteden alınan yukarıda ki kod ile listbox3 te bulunan 8 kolonu listbox4 aktarmak istedim. Ancak sadece ilk sütunu alıyor. Rica etsem;
listbox3 de bulunan tüm kolonları (8 Kolon) Listbox4 e mükerrer aktarma olmayacak şekilde düzenleye bilmeniz mümkün müdür?

 

[Korhan Ayhan]

Örnek dosya lütfen...