>>247
Declare Function ShellExecuteの宣言で
引数の型を(hwnd As Long, …)にしてると動かないすね。
これを(hwnd As IntPtr, …)に直して、
ShellExecute(IntPtr.Zero, "open", ファイル名, …)または
ShellExecute(Me.Handle, "open", ファイル名, …)でいけそう。