If ClipBoard.ContainsText Then
Dim s As String = ClipBoard.GetText()
Dim lb As WinForm.TextBox
lb = e.Form.Controls("TextBox1")
lb.SelectedText = s
End If