[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
       TextBox3.Text = y

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

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