Есть в основном 2 варианта.Во-первых, как вы это делаете, и клик все еще может делать больше, чем двойной щелчок.
Private Sub RichTextBox1_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseClick
'' i can do stuff here
RichTextBox1_MouseDoubleClick(sender, e)
'' and here
'' as well as do whatever double click is doing
End Sub
Private Sub RichTextBox1_MouseDoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseDoubleClick
'' to do something here
End Sub
Другой вариант, если они всегда собираются делать то же самое, вы можете сделать это:
Private Sub RichTextBox1_Single_DoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles RichTextBox1.MouseClick, RichTextBox1.MouseDoubleClick
'' do something here
End Sub
Заметили второй бит ручек на конце?теперь эта функция может обрабатывать и то, и другое:)
Любая из них должна отлично работать для того, что вы хотите.