Visual Basic - Seleccion multiple en listbox

Necesito ayuda para poder seleccionar mas de una opcion dentro de un listbox. Como se hace para capturar las selecciones y guardarlas en una DB. Me seria muy util un codigo de ejemplo

Primero establece la propiedad multiselect de la lista a true, luego, para saber los items seleccionados tenes que hacer un for como el que sigue:

for i=0 to list1.listcount-1
if list1.selected(i) then
'Grabar en BD o hacer lo que quieras
endif
next