CloseEx Example

This example closes the active session.

Sub Main()

 Dim Sys As Object, Sess As Object

 Set Sys = CreateObject("EXTRA.System")

' Assumes an open session

 Set Sess = Sys.ActiveSession

 MsgBox "Press to close session."

 Sess.CloseEx 16

'The integer value 16 prompts the user to save the session.

End Sub