This example gives focus to the next open session.
Sub Main()
Dim Sys As Object, Sess As Object
Set Sys = CreateObject("EXTRA.System")
' Assumes two or more open sessions
Sys.Sessions.JumpNext
End Sub