SendMessage RichTextBox1.hwnd, WM_COPY, 0, ByVal 0这个函数的意思是 向RichTExtBOX1 发送一个复制的操作粘贴的常数是 Const WM_PASTE = &H302 SendMessage RichTextBox1.hwnd, WM_PASTE, 0, ByVal 0
你去研究一下APⅠ,里面都有。