對SHELL語句的擴充

關於有時候在VB中使用了Shell語句遇到的問題的解決方案：

應該是Shell的命令程式沒執行完，就執行顯示檔案到Textbox的操作了，使用WaitForSingleObject來等待Shell執行完後再執行下面操作
'先申明如下API
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
Private Const SYNCHRONIZE = &H100000
Private Const INFINITE = &HFFFFFFFF

'調用如下
Dim pId As Long, pHnd As Long
pId = Shell(要執行的應用程式)
pHnd = OpenProcess(SYNCHRONIZE, 0, pId)
If pHnd <> 0 Then
   Call WaitForSingleObject(pHnd, INFINITE)
   Call CloseHandle(pHnd)
   '執行你讀取檔案到TextBox的操作
   ..................
else
   msgbox "調用失敗"
End If