Control de cuadro de lista VB (incluida la casilla de verificación), cómo escribir código de operación de selección múltiple
Subcomando privado1_Click()
Atenuar i mientras
Para i = 0 a List1.ListCount - 1
Si List1. Seleccionado(i) = Verdadero Entonces
List1.RemoveItem (i) 'Eliminar el elemento seleccionado
Fin si
Siguiente
Fin Sub