Buon giorno,
in VB6 sotto Win 8.1
Declare Function GetDesktopWindow Lib "user32" () As Long
Const SW_SHOWNORMAL As Long = 1
Scr_hDC = GetDesktopWindow()
Ret = ShellExecute(Scr_hDC, "Open", Nomefile, "", App.Path & "\", SW_SHOWNORMAL)
con le suddette istruzioni funziona e si apre il file pdf in runtime.
Se invece eseguo dall'Ide di Visul Basic, non si apre il file