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)
MyArea.Select
MsgBox "Select the Area object ..."
Set MyArea = MyScreen.Select(11, 11, 20, 20)
MsgBox "Select the Screen object ..."
End Sub