难题！一个关于富文本框（RichTextBox)的难题！回答试验成功后马上给分！

[chredhat1987]

在富文本框（RichTextBox)按Ctrl+Z,Ctrl+C等组合键能自身执行撤销,复制等操作。怎么样才能将这些功能屏蔽掉？

[supergreenbean]

搜索个子类处理的程序，然后把按键信息屏蔽掉

[northwolves]

Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
If Shift = 2 And (Chr(KeyAscii) = "Z" Or Chr(KeyAscii) = "C") Then RichTextBox1.Text = RichTextBox1.Text
End Sub

[victorycyz]

Dim i As Integer, c As Boolean, L As Boolean

Private Sub RichTextBox1_KeyDown(KeyCode As Integer, Shift As Integer)

If (Shift And vbCtrlMask) And (KeyCode = vbKeyZ) Then
L = RichTextBox1.Locked
RichTextBox1.Locked = True
End If

If (Shift And vbCtrlMask) And (KeyCode = vbKeyC) Then
i = RichTextBox1.SelLength
RichTextBox1.SelLength = 0
c = True
End If

End Sub

Private Sub RichTextBox1_KeyUp(KeyCode As Integer, Shift As Integer)

RichTextBox1.Locked = L

If c = True Then
RichTextBox1.SelLength = i
c = False
End If

End Sub