List1'den List2'ye Bilgi AKTARMA | Dev PAYLAŞIM

[ProFonix]

Bakıyorum da hala isteyenler var.

Gerekenler :
2 adet list
1 adet command button

Private Sub Command1_click()
Dim i
For i=0 To list1.listCount - 1
If list1.selected(i)=True Then
list2.addıtem list1.list(i)
Else
End
End If
Next
End Sub

Private Sub form_load()
list1.addıtem "aaaaa"
list1.addıtem "bbbbb"
list1.addıtem "ccccc"
list1.addıtem "ddddd"
list1.addıtem "eeeee"
End Sub