[2008] add items from listbox to another

[cuterita7]

Hi

I have 2 listboxes,I want to add items from ListBox1 to ListBox2,ListBox1 is populated as follow:

Dim dt As New CustomersTableAdapter
ListBox1.DataSource = dt.GetData()
ListBox1.DisplayMember = "CompanyName"
ListBox1.ValueMember = "CustomerID"

I want to add the selected item from listbox1 to listbox2(the text and the value) so that each item in listbox2 will have a displaymember and a valuemember

any help

thanks