ma forse non è chiaro: io la somma la riesco a fare tranquillamente......è quando devo fare la sottrazione che è diverso....

la sottrazione del valore al totale la faccio selezionando dalla lisstbox il valore da rimuovere perciò faccio:

Private Sub Command2_Click()


i = List1.ListCount - 1

While i >= 0

If List1.Selected(i) = True Then

List1.RemoveItem (List1.ListIndex)
MsgBox " " & contatore(i) & ""
Label1 = Label1 - contatore(i)

End If
i = i - 1
Wend

End Sub


ora avrei quasi risolto se non è per questa "anomalia" che si presenta quando inserisco un dato che si aggiunge varie volte:


Dim contatore(100) As Integer
Dim i As Integer


Private Sub Command1_Click()

For i = 1 To List1.ListCount + 1

List1.AddItem (Text1.Text)

contatore(i) = Val(Text1.Text)

MsgBox " " & contatore(i) & " "
Next

Label1 = Val(Label1) + Val(Text1.Text)
Text1.Text = ""



End Sub

..................vi prego non cambiamo metodo per aggiungere o sottrarre i valori, vi chiedo solo di controllare l'errore del codice...

grazie!!