请问各位VB高手可以用VB实现普通鼠标的剪切和复制功能吗?

1.新建模块放入下面代码。
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CUT = &H300
Public Const WM_COPY = &H301
Public Const WM_PASTE = &H302
Public Const WM_CLEAR = &H303
Public Const WM_UNDO = &H304

2.新建窗体，添加控件TextBox，名称为mText。
并添加如下代码。

'Undo
Public Sub Undo()
Dim Ok As Long
Ok = SendMessage(mText.hwnd, EM_UNDO, 0, 0&)
End Sub

'Cut
Public Sub Cut()
Dim Ok As Long
Ok = SendMessage(mText.hwnd, WM_CUT, 0, 0&)
End Sub

'Copy
Public Sub Copy()
Dim Ok As Long
Ok = SendMessage(mText.hwnd, WM_COPY, 0, 0&)
End Sub

'Paste
Public Sub Paste()
Dim Ok As Long
Ok = SendMessage(mText.hwnd, WM_PASTE, 0, 0&)
End Sub

'Del
Public Sub Del()
Dim Ok