Borrar Campos seleccionados de una lista multiselect

[seba123neo]

Hola, de un listbox multiselect?? si es asi proba esto:

Código vb:

Private Sub Command1_Click()
    Dim i As Integer
    If List1.ListIndex = -1 Then Exit Sub
    For i = List1.ListCount - 1 To 0 Step -1
        If List1.Selected(i) = True Then
            List1.RemoveItem i
        End If
    Next i
End Sub
 

saludos.