'在窗体上画一个TextBox和一个CommandButton,复制粘贴以下代码即可:
Option Explicit
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
Const WM_CUT = &H300
Const WM_COPY = &H301
Const WM_PAST = &H302
Const WM_CLEAR = &H303
Const WM_UNDO = &H304
Private Sub TXTBZ(HW As Long, Vrt As Long)
Dim WM As Long
Select Case Vrt
Case 0 '删除
WM = WM_CLEAR
Case 1 '复制
WM = WM_COPY
Case 2 '剪切
WM = WM_CUT
Case 3 '粘贴
WM = WM_PAST
Case 4 '撤消
WM = WM_UNDO
End Select
Call SendMessage(HW, WM, 0, 0)
End Sub
Private Sub Command1_Click()
Call TXTBZ(Text1.hwnd, 0)
End Sub