PASSANDO LISTBOX PARA OUTRO
Bom dia amigos, aqui estou precisando passar todo o conteudo de um LISTBOX para outro, como eu faço isso? eu sei passar individualmente o valor de um list para outro, agora todos ao mesmo tempo.. tenho que fazer loop?
Tenta dessa forma.
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
End Sub
Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next
End Sub
Tópico encerrado , respostas não são mais permitidas