VB6 - RichTextBox: Disabling Cut, Copy & Paste

[akhileshbc]

Hai friends,
Here is a solution to the common problem of disabling cut, copy and paste in a RichTextBox Control.
I had found it after certain experiments...
I hope, you all will like it..
Below is the code:

'Created by Akhilesh B Chandran

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 45 And Shift = 1 Then KeyCode = 0 'paste(shift + insert)
If KeyCode = 45 And Shift = 2 Then KeyCode = 0 'copy(ctrl + insert)
If KeyCode = 86 And Shift = 2 Then KeyCode = 0 'paste(ctrl + v)
If KeyCode = 67 And Shift = 2 Then KeyCode = 0 'copy(ctrl + c)
If KeyCode = 88 And Shift = 2 Then KeyCode = 0 'cut(ctrl + x)
End Sub

Note: You have to set the AutoVerbMenu property of the Richtextbox control to False(for disabling the popup menu on right click)

Please post your comments and suggestions...

-Regards
Akhilesh B Chandran