VB Shell调用后 等待程序运行结束

        Private Type SHELLEXECUTEINFO
               cbSize  As Long
               fMask  As Long
               hwnd  As Long
               lpVerb  As String
               lpFile  As String
               lpParameters  As String
               lpDirectory  As String
               nShow  As Long
               hInstApp  As Long
               '  Optional  members
               lpIDList  As Long
               lpClass    As String
               hkeyClass  As Long
               dwHotKey  As Long
               hIcon_OR_Monitor  As Long
               hProcess  As Long
        End Type

         Private Sub Form_Load()
            Dim si   As SHELLEXECUTEINFO
            si.cbSize = Len(si)
            si.lpVerb = "open"
            si.lpFile = "notepad.exe"
            si.lpParameters = ""
            si.lpDirectory = ""
            si.nShow = 5            'SW_SHOW
            si.fMask = &H40      'SEE_MASK_NOCLOSEPROCESS
            ShellExecuteEx si
            If si.hProcess <> 0 Then
                WaitForSingleObject si.hProcess, &HFFFFFFFF      '  无限等待，  直到程式结束
                CloseHandle si.hProcess
                MsgBox "程序运行完毕！"
            End If
        End Sub