Listbox Question

I have 2 listboxes with multiselect enabled.

The first box is pre-populated, and the user selects what they want.

They then click a button which copies the selection to listbox 2.

When I use the code below, lstbranches1.text always holds the text for the last item they clicked before hitting the button !

I'm probably being really dull, but this is annoying !

Can anyone help ?

Thanks.

++++++++++++++++++++++++++++++++++
For i = 0 To lstBranches1.ListIndex
If lstBranches1.Selected(i) Then
lstBranches2.AddItem lstBranches1.Text
End If
Next i
++++++++++++++++++++++++++++++++++

VB Code:

lstBranches2.AddItem lstBranches1.List(i)

I got it.

I should have been using :

lstBranches2.AddItem lstBranches1.List(i)

Now it works fine.

Thanks for the relpy though.