[aljzazy]

في حدث keydown  للتكست بوكس 2 ضع الكود التالي
اي بعد اخال نسبة الخصم بالتكست بوكس2 والضغط على انتر

كود :

   If e.KeyCode = Keys.Enter Then
           Dim a, b, c As Decimal
           a = Val(TextBox1.Text)
           b = Val(TextBox2.Text)
           c = a * b / 100
           TextBox1.Text = a - c
       End If