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?