[sooriaty03]

السلام عليكم
تفضل أخي الكريم
هذا هو الكود

كود :

Private Sub TextBox3_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.GotFocus
        If IsNumeric(TextBox1.Text) AndAlso IsNumeric(TextBox2.Text) Then
            TextBox3.Text = Val(TextBox1.Text) + Val(TextBox2.Text)
        Else
            'بإمكانك وضع رسالة خطأ
            'تطلب من المستخدم إدخال
            'أرقام فقط مثال على ذلك
            TextBox3.Text = "خطأ: الرجاء إدخال أرقام فقط"
        End If
    End Sub

بالتوفيق