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...