¹ØÓÚVB shell µÄÒ»¸öÎÊÌâ,Çë½ø

RetVal = Shell(App.Path + "\Project1.exe  ")
msgbox "111"


project1.exe ÊÇÆäËûµÄÒ»¸ö³ÌÐò
³ÌÐòÔÚÔËÐÐʱ, ÈçºÎÈà project1.exe ¹ØÖ®ºóÔÙÔËÐÐ msgbox

---

shell ±¾ÉíÖ»¸ºÔð¿ªÊ¼Ö§³ÖÕâ¸ö³ÌÐò¡£Ã»Óа취ÔÚSHELLÖÐʵÏÖÄãÒªÇóµÄÕâÖÖ¹¦ÄÜ¡£

---

ÒÑÕÒµ½½â¾ö°ì·¨£º

Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Long, ByVal dwMilliseconds As Long) As Long
        Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
        Private Declare Function ShellExecuteEx Lib "shell32.dll" Alias "ShellExecuteExA" (lpInfo As Any) As Long
        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
      &