You're welcome. I am not sure if the code below is what you are looking to do.
Sub Main
Dim Sys As Object, Sess As Object, MyScreen As Object, MyArea As Object, OurArea As Object, iMailArea As Object
Set Sys = CreateObject("EXTRA.System")
' Assumes an open session
Set Sess =...