Option Explicit
Sub Q_Sample044()
'Windows Script Host Object Model設定引用項目
Dim myWsh As IWshRuntimeLibrary.WshShell
Dim myExec As IWshRuntimeLibrary.WshExec
Dim myTimer As Single
Set myWsh = CreateObject("Wscript.Shell")
Set myExec = myWsh.Exec("C:\Program Files (x86)\Adobe\Acrobat 11.0\Acrobat\Acrobat.exe") '指定要啟動的應用程式
myTimer = Timer + 5 '指定結束時間
Do Until myTimer < Timer
DoEvents
Loop
myExec.Terminate
Set myExec = Nothing '釋放物件
Set myWsh = Nothing
End Sub