Per la prima richiesta basta che nel codice di 'Calcola' metti un
test :
Per il secondo problema, setta MaxLenght dei TextBox a 0 (Zero).codice:Private Sub Calcola() Text2.Text = "" nPVT = nPVM - nP ' Test If nPVT > nPVM Then nPVT = nPVM Text3.Text = nPVT End Sub
Ciao,![]()
PS: Ciao a tutti, vado a casa.

Rispondi quotando