复制并粘贴Rtf格式

Question

我正在尝试将一个rtf文件的一部分从一个RichTextBox复制到另一个。

我的代码：

Dim wk As New Work

工作是一个带有RichTextEdit的表单

Clipboard.SetText(wk.rtb1.SelectedText, TextDataFormat.Rtf)

我将WorkForm上的rtf文件的一部分复制到剪贴板中。这种看似有效

然后我尝试将其设置为另一个RichTextBox

If (Clipboard.ContainsText(TextDataFormat.Rtf)) Then
        rtb1.Rtf = Clipboard.GetText(TextDataFormat.Rtf)
End If

但是当我执行GetText时，我收到错误 “文件格式无效”

我在哪里错了？