como eu faço para passa todos os itens de uma list para outra sem colocar dois valores iguais

desde ja agradeço

Não entendi como assim ?

passar todos os testos de uma listbox para outra, mas verificando para não repetir

por exemplo

não ter dois items com o valor "nome" na que receberá o valor

Segue um exemplo abaixo :

Dim nList1 As Integer, nList2 As Integer, Existe As Boolean

With List1
    For nList1 = 0 To .ListCount - 1
        Existe = False
        For nList2 = 0 To List2.ListCount - 1
            If List2.List(nList2) = .List(nList1) Then
                Existe = True
                Exit For
            End If
        Next nList2
        If Existe = False Then
            List2.AddItem .List(nList1)
        End If
    Next nList1
End With

Qualquer duvida é só chamar,

 

Item:
For i = 0 To L1.listCount - 1
    If L1.Selected(i) Then L2.AddItem L1.list(i): L1.RemoveItem (i): GoTo Item
Next
End Sub

 

Sendo L1 o listbox1 e L2 o listbox2

 

O código acima está com um for..next pois é para multi-seleção. Mas não precisa. Se for somente seleção simples só adaptar...

 

at+

Fala ghost_jlp blz ?!

 

Onde vc esta checando se ja existe o item em L2 ??? O q o Justus quer é transferir de um ListBox para outro sem repetir os dados, ou seja, ListBox2 vai receber tudo que existir no ListBox1 mas não pode repetir dados !!!!

t+