expression.Cut()
where expression is a variable that represents a IbmScreen Object
expression.Cut()
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