|
| |
' This VBA-script auto saves Rose every 300 seconds
Sub Main()
Dim RoseApp As RoseApplication
Set RoseApp = GetObject(, "Rose.Application")
While 1
Dim Start
Start = Timer ' Set start time.
Do While Timer < Start + 300
DoEvents ' Yield to other processes.
Loop
RoseApp.Save True
Wend
End Sub
' If you create a similar VB aplication,
' you can make it a real Rose Add-In
' that start it when Rose starts, etc. |
