avevo pensato a questa soluzione
codice:
For c = 1 To lista_debitore.ListItems.Count
    If lista_debitore.ListItems(c).Selected = True Then
        cnt = cnt + 1
    End If
Next
ma se trovvo una specie di count degli elementi selezionati era meglio