[Leginus]

You can do it by creating your own copy and paste buttons and using the selstart and sellength property. Example attached

Sub Globals
	'Declare the global variables here.
Dim CopyText
End Sub

Sub App_Start
	Form1.Show
	
End Sub


Sub TextBox1_KeyPress (key)
textbox1.IgnoreKey
End Sub

Sub btnCopy_Click
copyText=SubString(textbox1.text,textbox1.SelectionStart,textbox1.SelectionLength)
End Sub

Sub btnPaste_Click
textbox2.Text=copytext
End Sub