Rich Textboxで

Public Class Form1
 Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles Me.MouseMove

        If e.Button = System.Windows.Forms.MouseButtons.Right Then '
            '右クリックしながらマウス移動でマウス中央のボタンを押した事になります
            MyBase.OnMouseClick(New MouseEventArgs(System.Windows.Forms.MouseButtons.Middle, 1, e.X, e.Y, e.Delta))
        End If
    End Sub
End Class

これをRich Textboxで動作させたいのすけど、どこを変更すれば良いのかわかりません
どなたかわかる方がおられるのなご教示お願いします。
使っているソフトはVB2005です。

何で最初に答えて貰った所で聞かないんでしょう。
http://bbs.wankuma.com/index.cgi?mode=al2&namber=33063

>これをRich Textboxで動作させたいのすけど、どこを変更すれば良いのかわかりません
まず、提示されたコードの内容をどれだけ理解されているのか、それを教えて下さい。