Function LoopRun(ByVal Frm As Form)
    Static WL As Long
    Static IsNeedRun As Boolean
    IsNeedRun = Not IsNeedRun:  If WL = 0 Then WL = Frm.hWnd

        Do While IsNeedRun = True And (Frm.hWnd = WL)
            '*添加代碼*
            '**********
            '**********
            DoEvents
        Loop

    If (Frm.hWnd <> WL) Then Unload Frm
    ''''LoopRun = IsNeedRun'無法返回狀態(tài)
End Function