Cut Method Example

This example removes an area of the screen and stores it in the Clipboard.

Sub Main()

 Dim Sys As Object, Sess As Object, MyScreen As Object

 Dim MyArea As Object

 ' Invoke the clipboard viewer

 Shell("clipbrd.exe")

 Set Sys = CreateObject("EXTRA.System")

' Assumes an open session

 Set Sess = Sys.ActiveSession

 Set MyScreen = Sess.Screen

 ' This example demonstrates the Cut method for Area objects.

 Set MyArea = MyScreen.Area(1,1,10,10 , ,)

 MyArea.Select

 MyArea.Cut

 MsgBox "Press to Cut the entire Screen."

 ' This example demonstrates the Cut method for Screen objects.

 MyScreen.SelectAll

 MyScreen.Cut

End Sub