Pasar varios Items de un listbox1 a listbox2 con el mouse

Tengo un formulario en el que puedo mover solo un item de un listbox a otro con el mouse sin problema, la pregunta es... ¿Es posible seleccionar más de uno y moverlos al segundo listbox?

Este es parte de mi código:

Public Sub ListBox2_BeforeDropOrPaste(ByVal _
                                Cancel As MSForms.ReturnBoolean, _
                                ByVal Action As Long, ByVal Data As _
                                MSForms.DataObject, ByVal x As Single, _
                                ByVal y As Single, ByVal Effect As _
                                MSForms.ReturnEffect, ByVal Shift As Integer)
  Application.ScreenUpdating = False
    Cancel = True
    Effect = 1
    ListBox2. AddItem (Data. GetText)
    ListBox1. RemoveItem ListBox1. ListIndex

Aquí se descarga el item en el listbox2 y después ese mismo lo quita del listbox1, ¿Cómo puedo hacerlo con dos o más item en un solo movimiento del mouse?

Añade tu respuesta

Haz clic para o