Using Listboxes to move names

[cjwares]

This should work:

For the add one button:

Private Sub Command1_Click()
List2.AddItem List1
End Sub

For the add all button:

Private Sub Command2_Click()

For n = 1 To List1.ListCount
List1.ListIndex = n - 1
List2.AddItem List1
Next n
End Sub