AutoSaveInterval property example

Sub AutoSave_Example()
' This example obtains the AutoSaveInterval property.
    Dim myPrefs As AcadPreferences
    Set myPrefs = ThisDrawing.Application.preferences
    Dim iCurrSaveInterval As Integer
    iCurrSaveInterval = myPrefs.OpenSave.AutoSaveInterval
    MsgBox "Save Interval: " & iCurrSaveInterval
End Sub