Cuestión : restar el 10% de textbox

hola, el
tengo un botón que cuando está presionada los cambios el color de fondo, yo también quisieran que dedujera el 10% del total de un textbox, después cuando está chascada, cambien el color detrás y reapliquen el 10%. ….  El código está hasta ahora:

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

del texto percent10.BackColor = discountlabel de Color.LightGray
.
del texto = del "" lbltotal. Texto = formato (Val (lbltotal. El texto) * 0.1, “0.00”) extremos If

This del
da algunos resultados extraños sin embargo y no puedo resolverme donde estoy saliendo mal.  ¿Puede cualquier persona ayudar?

Thanks class= del

Respuesta : restar el 10% de textbox

un descuento del 10% no es lo que usted consigue cuando usted divide por 10.  Un descuento del 10% es algo el valor original MINUS10%of que valor original

Descuento = 0.1* OriginalValue
DiscountedValue = OriginalValue - descuento

entonces, conseguir la parte posterior del valor original otra vez, usted agregaría el descuento al DiscountedValue:

OriginalValue = DiscountedValue + descuento