' Copy the RichTextBox's selected text into the Clipboard' Example: CopyFromRichTextBox (richTextBox1)Public Sub CopyFromRichTextBox(ByVal rtb As RichTextBox, _ Optional ByVal availableAfterEnd As Boolean = False) Dim data As New DataObject() ' get the selected RTF text if there is a selection, ' or the entire text is no text is selected Dim rtfText, plainText As String If rtb.SelectionLength > 0 Then rtfText = rtb.SelectedRtf plainText = rtb.SelectedText Else rtfText = rtb.Rtf plainText = rtb.Text End If ' do the copy only if there is something to be copied If rtfText.Length > 0 Then data.SetData(DataFormats.Rtf, rtfText) If plainText.Length > 0 Then data.SetData(DataFormats.Text, plainText) ' finally copy into the clipboard Clipboard.SetDataObject(data, availableAfterEnd)End Sub

Why the World Needs More Technology Leadership
As a fact, technology has touched every single aspect of our lives. And there are some technology giants in today’s world which have been frequently opined to have a strong influence on recent overall technological influence. Moreover, those tech giants have popular technology leaders leading the companies toward achieving greatness.