VB记事本 剪切功能快捷键不正常

我用VB编了一个记事本，调试的时候发现我给“剪切”设置的快捷键CTRL+X没有用，按下CTRL+X，选中的字会没，但是再按粘贴就粘不上了。
但是我不弄快捷键反而有用，可能是WINDOWS默认的吧。
由于要改字体颜色，我用的控件是RICHTEXTBOX，下面是我剪切功能的代码，找了很久还是不知道是哪错了，希望大家可以看看
'复制
Private Sub mnuCopy_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
End Sub
'剪切
Private Sub mnuCut_Click()
Clipboard.Clear
Clipboard.SetText RichTextBox1.SelText
RichTextBox1.SelText = ""
End Sub
'全选
Private Sub mnuSelectAll_Click()
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
End Sub
'粘贴
Private Sub mnuPaste_Click()
RichTextBox1.SelText = Clipboard.GetText
End Sub
二楼兄弟
我扑到在地，你要我给你几百分呢

VB实现Windows记事本功能 VB设计的记事本*有撤销功能* 求VB编的记事本查找替换功能的原代码 请问各位VB高手可以用VB实现普通鼠标的剪切和复制功能吗? 快捷键（记事本） vb 快捷键 vb中的剪切代码 遨游2 添加记事本快捷键 高手请进！VB写的记事本怎么添加即使保存功能？？？ vb调用记事本