Private Sub Command1_Click()
    Call MoveAll
End Sub
Public Sub MoveItem(L1 As ListBox, L2 As ListBox)
'    L2.AddItem ?
'    L2.AddItem L1.Text
    L2.AddItem L1.List(L1.ListIndex)
'    L1.RemoveItem ?
    L1.RemoveItem L1.ListIndex
End Sub
Public Sub MoveAll()
'  For i = 0 To  ?
  For i = 0 To List1.ListCount - 1
        List2.AddItem List1.List(i)
  Next
End Sub
Private Sub List1_DblClick()
'    Call MoveItem(?)
    Call MoveItem(List1, List2)
End Sub