Cuts selected text and copies it to the Clipboard.
This example cuts and pastes text from one field to another.
Sub CutAndPaste()
Dim text As String
Dim field As HostField
Dim rcode As ReturnCode
ThisIbmScreen.SetSelectionStartPos 1, 29
ThisIbmScreen.ExtendSelectionRect 1, 48
ThisIbmScreen.Cut
rcode = ThisIbmScreen.MoveCursorTo1(5, 19)
ThisIbmScreen.Paste
End Sub