Ajouter items listbox1à lisbox2 sans doublon

Slt
tu fais une petite function qui te renvoie vrai ou faux et qui prend en parametre un String (en occurence ton Item) et là juste avant d'ajouter dans la liste tu passes l'Item dans la function et là determine s'il existe ou pas dans ta liste de destination s'il existe on n'ajoute pas sinon on ajoute.

For i = 0 To exadispo.ListCount - 1
   'Si la valeur est sélectionnée
   If exadispo.Selected(i) Then
        if itemExiste(exadispo.List(i)) = False then
             exaselect.AddItem exadispo.List(i)
        else
             msgbox "L'element " & exadispo.List(i) & " Existe deja"
        End If
   End If
Next 

ta fonction s'appelle ici itemExiste(...) essaie de l'écrire voir

cdlt.
;-)

Je suis débutant en vb6 et j’ai un petit problème avec des listbox, je voudrai ajouter des items d’un listbox1 vers un listbox2 et ça marche avec mon code sauf que lorsque click sur le bouton select il ajoute l’items (n) fois. Mois je ne veux pas de doublons dans le listbox2.
Je voudrais que lorsque l’élément existe déjà dans le listbox2, il m’affiche un msgbox qui me préviendra que l’élément existe déjà. Comment le faire ?
Merci de votre aide
voila le code:

Private Sub cmdselect_Click()
Dim i As Integer
Dim ii As Integer
'---------------------------------------------------------
'Pour chaque valeur de la liste 1
For i = 0 To exadispo.ListCount - 1
'Si la valeur est sélectionnée
If exadispo.Selected(i) Then

exaselect.AddItem exadispo.List(i)

'------------------------------------------------------------------
End If
Next

End Sub

merci
il faut définir la fonction de vérification d'abord.
merci pour votre aide.