CloseAll Method Example

This example closes all open sessions.

Sub Main()

 Dim Sys As Object

 Set Sys = CreateObject("EXTRA.System")

' Assumes one or more open sessions

 Sys.Sessions.CloseAll

End Sub