كود اظهار نتيجه حسابيه فى التكست بوكس تلقائيا


كود:

Private Sub ResultTextbox3(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged
If TextBox1.Text Is String.Empty Or Not IsNumeric(TextBox1.Text) Then
TextBox3.Text = ""
Exit Sub
End If
If TextBox2.Text Is String.Empty Or Not IsNumeric(TextBox2.Text) Then
TextBox3.Text = ""
Exit Sub
End If
TextBox3.Text = CType(TextBox1.Text, Integer) * CType(TextBox2.Text, Integer)
End Sub