Select all items in a listbox

[andreihortua]

How to code a "Select all" button to a multi select listbox named lbSeleccionePuerto

 

[Meltdown]

Dim i As Integer

For i = 0 To lbSeleccionePuerto.ListCount - 1
lbSeleccionePuerto.Selected(i) = True
Next

 

[andreihortua]

UAU I did not think as easy.

THANKS A LOT