copier un listbox vers un autre

bonsoir
j'ai un probleme avec le listbox
j'ai 2 listbox je récupere les valeurs dans une Bd et je charge dans le 1er à l'aide d'un dataset
je voudrais actuellement lire toutes ces valeurs et les transferer dans l'autres listbox avec lequel je voudrais continuer par la suite
mais le code ne marche pas

o = List.Items.Count

'List.Visible = False

For j = 0 To o - 1

List3.Items.Add(List.Text)

Next j
dans ce cas, il ne copie que la première valeur
comment faire
aider moi svp
merci

julie

salut

c'est normal qu'il copie qie la premiere valeur, tu ne lui demande pas de changer de position.

'List.Visible = False

For j = 0 ToList.Items.Count - 1

List3.Items.Add(List.items(j).text)

Next j

Salut,

Ou alors:

For Each Item In List.Items
    List3.Items.Add(Item)
Next