This example first resets the horizontal position of the active session, then resets the column where the area begins.
Sub Main()
Dim Sys As Object, Sess As Object, MyScreen As Object, MyArea As Object
Set Sys = CreateObject("EXTRA.System")
Set Sess = Sys.ActiveSession
Set MyScreen = Sess.Screen
' This moves the session to the left of the screen.
Sess.Left = 1
Set MyArea = MyScreen.Area(1,1,MyScreen.Rows,1,,3)
MsgBox "The text in column 1 is: " + MyArea.Value
MyArea.Left = 2
MyArea.Right = 2
MsgBox "The test in column 2 is: " + MyArea.Value
End Sub