1.Use two list boxes and 4 buttons
2.Set the multiselect property of both
3.Try this code for moving selected items from list1 to list2
Code:
Private Sub Command1_Click()
    For i = 0 To List1.ListCount - 1
        If List1.List(i) = "" Then Exit For
        If List1.Selected(i) = True Then
            List2.AddItem List1.List(i)
            List1.RemoveItem i
        End If
    Next
End Sub
4.Proceed with other buttons as such