Originariamente inviato da Melly
avevo pensato a questa soluzione


ma se trovvo una specie di count degli elementi selezionati era meglio
così è ottimizzato:

codice:
For c = 1 To lista_debitore.ListItems.Count
    If lista_debitore.ListItems(c).Selected Then cnt = cnt + 1
Next


i pvt sono ancora pieni.