Questione : sottrarre 10% dalla casella di testo

ciao,
ho un tasto che una volta urgenti cambiamenti il colore della priorità bassa, io inoltre lo vogliono dedurre 10% dal totale di una casella di testo, quindi una volta scattati, cambiano il colore indietro e riapplicano il 10%. ….  Il codice finora è:

se percent10.BackColor = Color.LightGray Then
percent10.BackColor = discountlabel di Color.Red
. Testo = “
di 10% " lbltotal. Testo = disposizione (Val (lbltotal. )/10, “0.00„)
Else

del testo percent10.BackColor = discountlabel di Color.LightGray
.
del "" = del testo lbltotal. Testo = disposizione (Val (lbltotal. Il testo) * 0.1, “0.00„) estremità If

This del
dà alcuni risultati sconosciuti comunque e non posso risolvere dove sto andando male.  Può chiunque aiutare?

Thanks class= del

Risposta : sottrarre 10% dalla casella di testo

uno sconto di 10% non è che cosa ottenete quando dividete per 10.  Piuttosto uno sconto di 10% è il valore originale MINUS10%of che valore originale

Sconto = 0.1* OriginalValue
DiscountedValue = OriginalValue - sconto

allora, ottenere ancora la parte posteriore di valore originale, aggiungereste lo sconto al DiscountedValue:

OriginalValue = DiscountedValue + sconto