With ListBox1
  If .SelectedItems.Count > 0 Then
    ListBox2.BeginUpdate()
    For Each sItem As String In .SelectedItems
      ListBox2.Items.Add(sItem)
    Next 
    ListBox2.EndUpdate()
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de