Pergunta : subtrair 10% do textbox

olá!, o
eu tenho uma tecla que quando pressionada mudanças a cor do fundo, mim igualmente a queiram deduzir 10% do total de um textbox, a seguir quando estalada, as mudem a cor para trás e as reapliquem o 10%. ….  O código é até agora:

se percent10.BackColor = Color.LightGray Then
percent10.BackColor = discountlabel de Color.Red
. Texto = de “
10% " lbltotal. Texto = formato (Val (lbltotal. ) Do texto/10, “0.00”)
Else

percent10.BackColor = discountlabel de Color.LightGray
.
do texto = do "" lbltotal. Texto = formato (Val (lbltotal. O texto) * 0.1, “0.00”) extremidades If

This do
dá alguns resultados estranhos embora e eu não posso elaborar onde eu estou indo mal.  Pode qualquer um ajudar?

Thanks class= do

Resposta : subtrair 10% do textbox

um disconto de 10% não é o que você começ quando você se divide por 10.  Um pouco um disconto de 10% é o valor original MINUS10%of que valor original

Disconto = 0.1* OriginalValue
DiscountedValue = OriginalValue - disconto

então, para começ outra vez a parte traseira do valor original, você adicionaria o disconto ao DiscountedValue:

OriginalValue = DiscountedValue + disconto