在MicroStation VBA程序中如何实现自启加载程序?即在打开MicroStation时就立即执行的过程,在为程序设计闪屏时需要这种方法，闪屏一般都是显示版权信息等内容，对保护作者权利有一定好处，也起到宣传作用，几乎所有软件都有闪屏，那我们也得为我们设计的VBA程序加上一个闪屏，在启动MicroStation时立即打开。
要实现自启动就需要用到两个方法：OnDesignFileClosed、OnDesignFileOpened
在程序中需要添加一个模块（Module）、类（Class）、一个窗体（Form），其中前两项是必须的，窗体根据要实现的目的而不同，也可不用窗体，如下图：
[center][IMG]upload/article/a2007092911051560.jpg[/IMG][/center]
运行时也就是在打开MicroStation或打开.dgn文件时会显示：
[center][IMG]upload/article/2007092911054860.jpg[/IMG][/center]
类文件取名为：clsOpenClose，可以任意命名，模块文件取名为：Module，可以任意命名，窗体就不用说了哈。
类模块中的代码：
Dim WithEvents hooks As Application
Private Sub Class_Initialize()
Set hooks = Application
End Sub
Private Sub hooks_OnDesignFileClosed(ByVal DesignFileName As String)
‘ShowMessage "Closed design file " & DesignFileName
End Sub
Private Sub hooks_OnDesignFileOpened(ByVal DesignFileName As String)
splashForm.dgnFilename.Caption = DesignFileName
splashForm.Show
'其它功能代码
End Sub
模块文件内的代码：
Dim oOpenClose As clsOpenClose
Sub SetupHooks()
Set oOpenClose = New clsOpenClose
End Sub
Public Sub OnProjectLoad()
Call SetupHooks
End Sub
