Dim tem As String
'先定义tem字符串,用于存放复制的字符
Clipboard.Clear
'清空剪贴板
tem = MDIForm1.ActiveForm.RichTextBox1.SelText
'把选中的字符附给tem
Clipboard.SetText tem
MDIForm1.ActiveForm.RichTextBox1.SelText = ""
'剪切就在上面多加这句
MDIForm1.ActiveForm.RichTextBox1.SelText = Clipboard.GetText
'粘贴
当然有必要时还要对
enabled
进行设置