silver ho quest'ultimo problemino che no nriesco a risolvere, per quanto riguarda l'array per fare la sottrazione:
nel pulsante "aggiungi nella lista" c'è il seguente codice, ovvero quello che mi memorizza i dati nelll'array:
Private Sub Command1_Click()
Dim contatore(100) As Integer
List1.AddItem (Text1.Text)
contatore(i) = Text1.Text
MsgBox " " & contatore(i) & " "
Label1 = Val(Label1) + (Text1.Text)
Text1.Text = ""
End Sub
---------------------------------------------------------------------------------------------------------------------
mentre qui c'è il codice dove vado a rimuovere il valore nella list (che va bene) e contemporarenamente DOVREI togliere il prezzo anche dal totale:
Private Sub Command2_Click()
Dim contatore(100) As Integer <----------qui dovrei richiamare l'array di sopra che mi ha salvato i valori
i = List1.ListCount - 1
While i >= 0
If List1.Selected(i) = True Then
List1.RemoveItem (List1.ListIndex)
MsgBox " " & contatore(i) & "" <----- qui giustamente mi stampa a video 0 perché non c'è niente.
Label1 = Label1 - contatore(i)
End If
i = i - 1
Wend
End Sub