VB 计算TextBox内的和 （无按钮）

1、TextBox的KeyUp事件

2、Val()  过滤字符

    Private Sub TextBox6_KeyUp(sender As Object, e As KeyEventArgs) Handles TextBox6.KeyUp
        If e.KeyCode = Keys.L Then
            TextBox6.Text = Val(TextBox1.Text) + Val(TextBox2.Text) + Val(TextBox3.Text) + Val(TextBox4.Text) + Val(TextBox5.Text)
        End If
    End Sub