This example first deletes an area of the screen (from row 1, column 1 to row 5 column 5), then deletes an additional ten rows and columns.
Sub Main()
Dim Sys As Object, Sess As Object, MyScreen As Object
Dim MyArea As Object
Set Sys = CreateObject("EXTRA.System")
' Assumes an open session
Set Sess = Sys.ActiveSession
Set MyScreen = Sess.Screen
' This example demonstrates the Delete method for Area objects.
Set MyArea = MyScreen.Area(1,1,5,5 , ,3)
MyArea.Select
MyArea.Delete
MsgBox "Press to Delete a larger section of the screen."
' This example demonstrates the Delete method for Screen
' objects.
Set myArea = MyScreen.Select(10,10,20,20)
MyScreen.Delete
End Sub