Area Method Example

This example returns an Area object and displays the text in the object.

Sub Main()

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

 Set Sys = CreateObject("EXTRA.System")

' Assumes an open sessions

 Set Sess = Sys.ActiveSession

 Set MyScreen = Sess.Screen

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

 MsgBox "The text in the first column is " + MyArea.Value + "."

End Sub