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です。