RichTextBox1.SelStart = 0 RichTextBox1.SelLength = Len(RichTextBox1) SnedKeys "^{C}" '模拟按下Ctrl+C或者RichTextBox1.SelStart = 0 RichTextBox1.SelLength = Len(RichTextBox1) Clipboard.Clear '先清空剪贴板Clipboard.SetText Form4.RichTextBox1.SelText