Shared totaleRegalo As Integer = 0

Public Sub RepeaterCommand(source As Object, e As RepeaterCommandEventArgs) Handles AreaRipetuta.ItemCommand

        DirectCast(e.Item.FindControl("LabelMessaggio"), Label).Visible = True

        Dim Str_txtBox As String = DirectCast(e.Item.FindControl("textBoxRegalo"), TextBox).Text
        Dim ID As Integer = DirectCast(e.Item.FindControl("ButtonAgg"), Button).CommandArgument
        Dim Str_LabelRisultato As Object = DirectCast(e.Item.FindControl("LabelMessaggio"), Label)

           If ValidazioneCampo(CInt(Str_txtBox), ID, Str_LabelRisultato) Then
                If ripetuto = 0 Then
                    ElencoRegali.Insert(Me.indice.ToString, Str_txtBox)
                    riepilogo.Text = riepilogo.Text & RecuperaNome(ID) & vbCrLf & ElencoRegali.Item(Me.indice.ToString).ToString & vbCrLf & "€" & "<br />"
                    Me.indiceID.Insert(CInt(Me.indice.ToString), ID)
                    Me.indice = Me.indice + 1
                    Me.totaleRegalo += CInt(Str_txtBox)
                    Totale.Text = "TOTALE: " & Me.totaleRegalo & " €"
                    DirectCast(e.Item.FindControl("ButtonAgg"), Button).Enabled = False
                    ripetuto = 1
                Else
                    ripetuto = 0
                    Str_txtBox = 0
                End If
                
            End If
       End Sub