multiselect

One:

In ListBox1 (set Property)
ListBox1.SelectionMode = MultiExtended

Two:
(for pass to other listbox)

Dim i As Long
For i = 0 To ListBox1.SelectedItems.Count - 1
ListBox2.Items.Add(ListBox1.SelectedItems(i))
Next

how i, select more one items of a listbox?
for pass to other listbox

HelpÂŽplease
.