[ابراهيم ايبو]

السلام عليكم ورحمة الله وبركاته
كل عام وانتم بخير - اضحى مبارك
اخي العيدروس تفضل

كود :

Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
       Dim kk As Double
       If e.KeyCode = Keys.Enter Then

           kk = Val(TextBox1.Text)
           TextBox1.Clear()
           TextBox1.Focus()
           TextBox2.Text = (Val(TextBox2.Text) + kk).ToString("0.00")
       End If
   End Sub