控件不失去焦点

Private Sub RichTextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles RichTextBox1.Validating
e.Cancel = True
End Sub