Visual Basic - Eliminar elementos lista

Hola, ¿alguien podría pasarme el código necesario para eliminar los elementos de un ListBox que haya seleccionado el usuario?

Por ejemplo, que el usuario haya marcado los elementos 3 y 5, y que al pulsar el botón "Eliminar", dichos elementos se borren de la lista.

Muchas gracias, saludos.

Comprobamos primero que se ha seleccionado algo de la lista

If List1.ListIndex <> -1 Then

'borramos el elmento de la lista
List1.RemoveItem List1.ListIndex

End If

Espero q te sirva.

Muchas gracias, tenía algo parecido a lo que proponéis, pero ya he visto lo que fallaba.
Un saludo!

Hola, Angel!!

Tienes que poner esto:

Private Sub Command1_Click()
For i = 0 To Me.List1.ListCount - 1
If Me.List1.Selected(i) = True Then
MsgBox "item" & i & " seleccionado"
End If
Next
End Sub

Espero te sirva.

Saludos!!

Pdta: cualquier duda escribeme.

Perdon pero no me funciona. Eso no borra nada de mi list solo dice lo que esta seleccionado.

Hola, Kaiser!!

Tienes que poner esto:

Private Sub Command1_Click()
On Error GoTo verror
For i = 0 To Me.List1.ListCount - 1
If Me.List1.Selected(i) = True Then
Me.List1.RemoveItem i
i = i - 1
End If
Next
verror:
If Err.Number = 381 Then
Exit Sub
End If
End Sub

Espero te sirva.

Saludos!!

Pdta: cualquier cosa escribeme.

Primero en las propiedades de el list tiene que colocar en Multiselect Simple ok...

e intenta este codigo

Private Sub Command1_Click()
Dim i As Long
On Error GoTo suk
For i = 0 To Me.lista.ListCount - 1
If Me.lista.Selected(i) = True Then Me.lista.RemoveItem i
Next
suk:
End Sub

Con ese código, me lanza el mensaje siguiente:
" El índice de la matriz de propiedades no es válido "

¿A qué se refiere? Muchas gracias por vuestra ayuda.