Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
Label1.Text = Str(Val(TextBox2.Text) * Val(TextBox1.Text))
End Sub
Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
Label1.Text = Str(Val(TextBox2.Text) * Val(TextBox1.Text))
End Sub