View Single Post
  #7  
Old 15-05-2003, 16:48
wbochar
Guest
 
Posts: n/a
Default Interesting...

Running this code:

Code:
Option Explicit

Sub MCP()

Application.Optimization = True

Dim i As Integer
Dim Doc As Document
i = 0

Do While i <> 1000

i = i + 1
Set Doc = CreateDocument()
DoEvents
Doc.Dirty = False
Doc.Close

Loop

Application.Optimization = False

End Sub
Will not crash... But the scipt doesnt have the memory spike at execution. Its starts at 48, 154 MB and hits 50,528 MB max. Wierd
Reply With Quote