程序代码：

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long

Private Sub mnuCut_Click()
'剪切
    RichEdit.SetFocus
    SendKeys "^X", True
End Sub

Private Sub mnuCopy_Click()
'复制
    RichEdit.SetFocus
    SendKeys "^C", True
End Sub

Private Sub mnuPaute_Click()
'粘贴
    RichEdit.SetFocus
    SendKeys "^V", True
End Sub

Private Sub RichEdit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
'显示编辑区快捷菜单
    If Button = 2 Then
        PopupMenu mnuEdit
    End If
End Sub