Creacion de un programa para pasar datos de uno a otro la codificación seria la siguiente en cada uno de los botones:

Boton "pasar todo"
Private Sub Command1_Click()
For i = 0 To 3
List2.AddItem List1.List(i)
Next i
List1.Clear
End Sub

Boton"Quitar todo"
Private Sub Command2_Click()
For i = 0 To 3
List1.AddItem List2.List(i)
Next i
List2.Clear
End Sub

Boton"salir"
Private Sub Command3_Click()
End
End Sub

Boton "pasar 1"
Private Sub Command4_Click()
For i = 0 To 3
If List1.Selected(i) = True Then
List2.AddItem List1.List(i)
End If
Next i
End Sub

Boton "quitar 1"
Private Sub Command5_Click()
For i = 0 To 3
If List2.Selected(i) = True Then
List1.AddItem List2.List(i)
End If
Next i
End Sub