Saved Property Example

This example illustrates the two values of the Saved property, TRUE or FALSE.

Sub Main()

 Dim Sys As Object, Sess As Object

 Set Sys = CreateObject("EXTRA.System")

' Assumes an open session

 Set Sess = Sys.ActiveSession

 If Sess.Saved Then

  MsgBox "This session has not been changed since it was last saved."

 Else

  MsgBox "This session HAS been changed since it was last saved."

 End If

End Sub