[princelovelorn]

وعليكم السلام ورحمة الله وبركاته

تفضل الكود المطلوب

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
             Dim x As Double
        Dim y As Double
        Dim z As Double

        x = CDbl(TextBox1.Text)
        y = CDbl(TextBox2.Text)

        z = x * y / 100

        TextBox3.Text = CStr(x - z)
   End Sub

تمنياتي لك بالتوفيق والنجاح