' 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

Top Careers at Microsoft
Microsoft has gained its position as one of the top companies in the world, and Microsoft careers are flourishing. This multinational company is efficiently developing popular software and computers with other consumer electronics. It is a dream come true for so many people to acquire a high paid, high-prestige job