Application Event Redux.

[arcticad]

I am having an issue. I want to check the file before it opens.

This works fine as long as I have already opened at least 1 file.
(VBA has already been initialized)

If Autocad is closed then
When I double click on a drawing and autocad opens then the drawing loads then VBA initializes.(too late)

I want to prevent it from loading untill I can check the file.

Then let it continue to load.

Thanks.

--------------


This is in acad.dvb

Dim X As New EventClassModule

Sub InitializeEvents()

Set X.ACADApp = ThisDrawing.Application

End Sub

Sub INITEVENTS()
Call InitializeEvents
End Sub

Sub AcadStartup()
INITEVENTS
End Sub

-------------

class file named EventClassModule

Public WithEvents ACADApp As AcadApplication


Private Sub ACADApp_BeginOpen(FileName As String)
MsgBox "A drawing is about to be loaded from: " & FileName
End Sub