copy and paste to clipboard method

[Sting80]

Hi fellas...

So I'm doing this copy and paste to clipboard coding. It's running fine though. Below are the codes.

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCopy.Click
        Clipboard.SetDataObject(txtSource.Text, False)
    End Sub
 
 Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPaste.Click
        txtDest.Text = Clipboard.GetDataObject.GetData(DataFormats.Text, True)
    End Sub

There is no problem for pasting from clipboard. The copy code is running fine but as you can see we can only have text from text box named txtSource. How about if we like to copy from any highlighted word. Maybe we should change the txtSource into some other commands perhaps or maybe to call another function.
Hope you all can give me some tips. Thanx in advance...

[alex_read]

This code will copy any text which has been selected, or all of the textbox's text if no words have been selected...

If (txtSource.SelectionLength > 0) then
    clipboard.SetDataObject (mid(txtSource.Text, _
    txtSource.SelectionStart, txtSource.SelectionLength).ToString)
Else
    clipboard.SetDataObject (txtSource.Text)
End if

[Sting80]

Well that is not exactly what I had in mind. What I meant by any higlighted words are like highlighting at the web page, the ms word, notepad etc. So basically what you mentioned is all about the same text box. And what I meant is anything that is highlighted. But thanx anyway....