> Mret = ShellExecuteA(Me.hwnd, "open", FName, vbNullString, App.Path & "\", SNORMAL%)SNORMAL% がInteger 型になっているからだと思われます。Long型に変更して見てください