This example uses SelectAll to create an Area object with the same coordinates as the 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
' This selects the entire screen.
Set MyArea = MyScreen.SelectAll
End Sub