Listbox'lar Arası veri Aktarma

[fehdur]

Basit gibi görünsede iki listbox arası veri aktarma nasıl yapılır bulamadım.Bir kaç kod buldum kendime uyarlayamadım.Zaten fazla bir kod da yok.Yapmak istediğim Lisbox1'de bulunan seçili 3 kolondan oluşan veriyi üzerine tıkladığımda 3 kolonu birden listbox2'ye aktarsın.Sadece seçili satırı aktaracak.Yardımlarınız için Teşekkür ederim.

 

[Mahmut Bayram]

Dim i As Long
    
    If ListBox1.ListIndex = -1 Then Exit Sub
    
    For i = ListBox1.ListCount - 1 To 0 Step -1
         If ListBox1.Selected(i) = True Then
            ListBox2.AddItem ListBox1.List(i, 0)
            ListBox2.List(ListBox2.ListCount - 1, 1) = ListBox1.List(i, 1)
            ListBox2.List(ListBox2.ListCount - 1, 2) = ListBox1.List(i, 1)
         End If
    Next i

 

[fehdur]

Kodu çalıştırdım.Sağolun.Bir de textbox1 deki veriyi listbox3'ün 2. kolonuna ilave etmek istiyorum bir türlü yapamadım

 

[fehdur]

ListBox3.List(ListBox3.ListCount - 1, 1) = TextBox1.Value

Şeklinde yaptım,çalışıyor.