[princelovelorn]

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

كود :

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

       If TextBox1.Text = "" Then Exit Sub

       Dim x As Double
       Dim y As Double
       Dim z As Double

       y = 2

       x = CDbl(TextBox1.Text)
       z = x * y / 100
       TextBox3.Text = z
       TextBox2.Text = CStr(x - z)

   End Sub

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