[alsouf]

كود :

Public Class Form1
   Private Sub BtnCalculator_Click(sender As Object, e As EventArgs) Handles BtnCalculator.Click
       Dim Prix As Single
       Prix = CSng(Val(TBoxPrix.Text / 100))
       Dim PerCent As Single
       PerCent = TBPercentageCalculation.Text
       LbNewPrix.Text = CSng(Math.Round(Val(TBoxPrix.Text) - (Prix * PerCent), 2))
   End Sub
End Class

الشفرة التالية تفي بالغرض   و عيد سعيد