一个小弟我搞得小弟我头都大了的有关问题，大家

一个我搞得我头都大了的问题，求助大家
    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBox1.TextChanged

        Dim a As Integer
        MsgBox(1)

        a = Len(RichTextBox1.Text)
        If a >= 3 Then

            RichTextBox1.Text = RichTextBox1.Text.Remove(2)
        End If


    End Sub

执行，输入一个四字字组，激发TextChanged事件，执行RichTextBox1.Text = RichTextBox1.Text.Remove(2)后，为什么TextChanged事件不重新激发一次？？？急，求助，谢谢了
------解决方案--------------------
TextBoxd的TextChanged事件不能在事件内部触发自己，需要别人（同一个对象的其它事件，或不同对象）来触发它。