Dai uno sguardo al comando AppActivate.
Dovrebbe funzionare pressappoco così :
codice:
result = ShellExecute(form1.hWnd, "Open", pathDoc, vbNullString, vbNullString, SW_SHOWMAXIMIZED)
AppActivate(result)