' Paste the text currently in the Clipboard into the specified RichTextBox' Example: PasteIntoRichTextBox (richTextBox1)Public Sub PasteIntoRichTextBox(ByVal rtb As RichTextBox) ' get the data currently in the Clipboard Dim data As IDataObject = Clipboard.GetDataObject() ' check whether there is any data in RTF format, ' without attempting a conversion If data.GetDataPresent(DataFormats.Rtf, False) Then ' if available, paste into the RTF selection rtb.SelectedRtf = data.GetData(DataFormats.Rtf).ToString() ElseIf data.GetDataPresent(DataFormats.Text, True) Then ' otherwise attempts to get data in plaintext format rtb.SelectedText = data.GetData(DataFormats.Text, True).ToString() End IfEnd Sub

