Select Method Example

The example first shows how to select an Area object, then a Screen object.

Sub Main()

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


 Set Sys = CreateObject("EXTRA.System")

' Assumes an open session

 Set Sess = Sys.ActiveSession

 Set MyScreen = Sess.Screen


 Set MyArea = MyScreen.Area(5, 5, 10, 10, , 3)


 MsgBox "Select the Area object ..."


 Set MyArea = MyScreen.Select(11, 11, 20, 20)

 MsgBox "Select the Screen object ..."

End Sub