过程没有执行完毕就没办法关闭，除非加上那个判断，有什么其他的好办法吗
'''''''''''''''''''''''''''''''''''''''''
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 编辑 ]