Dim pc(14) As Integer
pc(1) = Val(txtpc1.Text)
pc(2) = Val(txtpc2.Text)
pc(3) = Val(txtpc3.Text)
pc(4) = Val(txtpc4.Text)
pc(5) = Val(txtpc5.Text)
pc(6) = Val(txtpc6.Text)
pc(7) = Val(txtpc7.Text)
pc(8) = Val(txtpc8.Text)
pc(9) = Val(txtpc9.Text)
pc(10) = Val(txtpc10.Text)
pc(11) = Val(txtpc11.Text)
pc(12) = Val(txtpc12.Text)
pc(13) = Val(txtpc13.Text)
pc(14) = Val(txtpc14.Text)

Dim nome(14) As String
nome(1) = txtp1.Text
nome(2) = txtp2.Text
nome(3) = txtp3.Text
nome(4) = txtp4.Text
nome(5) = txtp5.Text
nome(6) = txtp6.Text
nome(7) = txtp7.Text
nome(8) = txtp8.Text
nome(9) = txtp9.Text
nome(10) = txtp10.Text
nome(11) = txtp11.Text
nome(12) = txtp12.Text
nome(13) = txtp13.Text
nome(14) = txtp14.Text


pbgiac = (Val(TextBox1.Text)) * 100
i = 0
If pbgiac <= 0 Then
MsgBox("Immettere un valore > di 0")
Exit Sub
End If
For i = 1 To 14
If Val(pbgiac) < pc(i) Then
diff = pc(i) - Val(pbgiac)
For g = (i + 1) To 14
sum = (sum + pc(g))
Next g

*** MsgBox(("Mancano q.li " & (Val(diff) / 100) & " per " & NOME(i) & " (" & (i) & ")" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & "Q.li " & (Val(sum) / 100) & " per il resto della produzione" & Chr(10) & Chr(13) & Chr(10) & Chr(13) & "Totale Necessario = q.li " & ((Val(sum) / 100) + (Val(diff) / 100))), MsgBoxStyle.OkOnly, "Pasta di cacao")
btnpastaconv.Text = "-" & ((Val(sum) / 100) + (Val(diff) / 100))

Exit Sub
End If
resto = Val(pbgiac) - pc(i)
pbgiac = resto
Next i
If resto > 0 Then
MsgBox("Avanzano q.li " & (Val(resto) / 100))
btnpastaconv.Text = "+" & (Val(resto) / 100)
Else
MsgBox("Q.tà di pasta nel serbatoio esatta" & Chr(10) + Chr(13) & " per la produzione odierna!")
btnpastaconv.Text = "="
End If
Dato questo codice,che spero sia leggibile, quello che non sono riuscito a fare nonostante vari tentativi è assegnare un colore diverso(rosso) alla proprieta backcolor del textbox a cui fa riferimento la matrice NOME(i),se qualcuno puo darmi una mano...grazie
Quello che ho provato erroneamente è stato cercare di assegnare a nome(i) la proprietà backcolor che ovviamente non ha funzionato.
Ribadisco che, per quanto riguarda salvare il form dopo che l'utente a inserito dei valori, sono ancora in alto mare. Se qualcuno puo darmi delucidazioni "piu pratiche"(sempre che cio non esuli daregolamento)mi farebbe un grosso favore.