Option Explicit
 
 
' Nota: Establecer la propiedad "Style" del listbox en Checked
' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
 
Private Sub Eliminar_ListBox_Check(ListBox As ListBox)
 
    Dim i As Integer
    With ListBox
        'Recorremos toda la lista
        For i = 0 To ListBox.ListCount - 1
 
            'Si i es igual a la cantidad salimos del For
            If i = .ListCount Or .ListCount = 0 Then Exit For
            Debug.Print .List(i)
            ' Verificar el item si está marcado
            If ListBox.Selected(i) = True Then
                ' .. Lo eliminamos
                .RemoveItem (i)
                ' Restamos uno a i para verificar el siguiente
                If .ListCount > 0 Then i = i - 1
            End If
        Next
    End With
 
End Sub
 
Private Sub Command1_Click()
    Call Eliminar_ListBox_Check(List1)
End Sub
 
Private Sub Form_Load()
 
    Dim i As Integer
 
    With List1
 
        For i = 0 To 9
            .AddItem "Item " & i
        Next
    End With
 
    Command1.Caption = " Eliminar Items del listbox "
 
End Sub