VB Code:
  1. Private Sub Command1_Click()

  2. For i = 0 To List1.ListCount - 1

  3.    If List1.Selected(i) = True Then

  4.       List2.AddItem List1.List(i)

  5.    End If

  6. Next i

  7. End Sub