Help needed!

[vivek_master146]

i am having two listbox and want to add items selected in list1 to list2.
This code is for adding all items to list 2

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
List2.AddItem List1.List(i)
Next i
End Sub

But i dont know how to add only selected items from list1 to list2.

[Hack]

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
   If List1.Selected(i) = True Then
      List2.AddItem List1.List(i)
   End If
Next i
End Sub