' 声明IDataObject存放从剪贴板返回的数据
Dim iData As IDataObject
' 复制输入框的文字到剪贴板
Clipboard.SetDataObject(RichTextBox1.Text)
....处理
iData = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.Text) Then
RichTextBox1.Text = CType(iData.GetData(DataFormats.Text), String)
End If