Activate a Running Application by process ID

原出處
---
Dim processID As Integer
processID = Shell("NOTEPAD.EXE", AppWinStyle.NormalFocus)
AppActivate(processID)
---
好用呀