过程没有执行完毕就没办法关闭，除非加上那个判断，有什么其他的好办法吗
'''''''''''''''''''''''''''''''''''''''''
Private mblnUnload As Boolean

Private Sub Form_Activate()
mDelay 5
'If mblnUnload = True Then
'    MsgBox mblnUnload
'    Exit Sub
'End If
Me.Show
End Sub

Private Sub Form_Load()
mblnUnload = False
End Sub

Private Sub Form_Unload(Cancel As Integer)
mblnUnload = True
End Sub

Private Sub mDelay(LngTime As Single)
    Dim Timetmp As Long
    Dim timetmp2 As Long
    timetmp2 = Timer
    Timetmp = timetmp2 + LngTime
        While Timer < Timetmp
            DoEvents
        Wend
End Sub

’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘’‘
别告诉我把me.show去掉啊，这个只是替代了我的一大堆代码而已啊还有也不移动DoEvents引起的，可能是其他的一些外部对象的事件中存在类似DoEvents功能的东东

[ 本帖最后由 ylof1986 于 2010-2-23 10:46 编辑 ]

过程没有执行完毕就没办法关闭

这是肯定的.

你只能到程序里加个变量来标志.
当窗口需要关闭吧, 置变量标志为一个关闭值

正在执行的循环里,发现那个变量时,退出循环,

当发现所有的循环都退出后,则再关闭窗口.