Private Sub AutoSaveExample()
'This example obtais the AutoSaveInterval property.
Dim myobj As ApplicationPreferences
Set myobj = IntelliCAD.Preferences
MsgBox "Save Interval: " & myobj.AutoSaveInterval
End Sub