[Resolvido] Como preencher uma listbox a partir de outra listbox

[Gvip 0]

Galera to com um grande problema, tenho q montar um sistema pra inserir uns dados de uma lista em outra, e nao sei como fazer isso...

Se puderem ajudar serei muito grato.

 

Abraços!!!

[Gvip 0]

Jah to conseguindo desenvolver a ideia, segue o codigo abaixo, ainda estou melhorando tudo, isso é so um inicio:

 

Private Sub Command1_Click()

Dim i As Integer

For i = 0 To List1.ListCount - 1

If List1.Selected(i) = True Then

List2.AddItem List1.List(i)

End If

Next

MsgBox "ok"

End Sub

 

Private Sub Form_Load()

List1.AddItem "aaaaa"

List1.AddItem "baaaa"

List1.AddItem "caaaa"

List1.AddItem "daaaa"

List1.AddItem "eaaaa"

List1.AddItem "faaaa"

End Sub

 

Vlw galera, se quiserem contribuir melhorando a ideia será bem vindo.

Abraços!