Comment copier, coller, couper, annuler ??????

vb

Private Const EM_UNDO = &HC7
Private Const EM_CANUNDO = &HC6
Private Const WM_USER As Long = &H400
Private Const EM_REDO As Long = (WM_USER + 84)
Private Const EM_CANREDO As Long = (WM_USER + 85)
Private Const WM_COPY = &H301
Private Const WM_CUT = &H300
Private Const WM_CLEAR = &H303
Private Const WM_PASTE = &H302
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Sub mnuEditSubRedo_Click()
SendMessage txtTerm.hWnd, EM_REDO, 0, ByVal 0&
End Sub

Private Sub mnuEditSubUndo_Click()
SendMessage txtTerm.hWnd, EM_UNDO, 0, ByVal 0&
End Sub

Private Sub mnuEditSubCopy_Click()
Clipboard.Clear
SendMessage txtTerm.hWnd, WM_COPY, 0, 0
End Sub

Private Sub mnuEditSubCut_Click()
Clipboard.Clear
SendMessage txtTerm.hWnd, WM_CUT, 0, 0
End Sub

Private Sub mnuEditSubPaste_Click()
SendMessage txtTerm.hWnd, WM_PASTE, 0, 0
End Sub

Private Sub RichText1_Change()
mnuEditSubUndo.Enabled = SendMessage(txtTerm.hWnd, EM_CANUNDO, 0, ByVal 0&)
mnuEditSubRedo.Enabled = SendMessage(txtTerm.hWnd, EM_CANREDO, 0, ByVal 0&)
End Sub