Try this:


Code:
Private Sub RichTextBox1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    RichTextBox1.SelLength = 0
End Sub