Clipboard handling

Please do not use the Clipboard object. You can simply call PasteFromClipboard, CopyToClipboard and CutToClipboard.

Private Sub mnuEditPaste_Click()

    On Error Resume Next

    ' ActiveForm.rtfText.SelRTF = Clipboard.GetText

    ActiveForm.rtfText.Memo.PasteFromClipboard

End Sub

Private Sub mnuEditCopy_Click()

    On Error Resume Next

    'Clipboard.SetText ActiveForm.rtfText.SelRTF

    ActiveForm.rtfText.Memo.CopyToClipboard

End Sub

Private Sub mnuEditCut_Click()

    On Error Resume Next

    'Clipboard.SetText ActiveForm.rtfText.SelRTF

    'ActiveForm.rtfText.SelText = vbNullString

    ActiveForm.rtfText.Memo.CutToClipboard

End Sub

For UNDO we call the "Undo" action

Private Sub mnuEditUndo_Click()

    ActiveForm.rtfText.wpaProcess "Undo", ""

End Sub