Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpszOp As String, _ ByVal lpszFile As String, ByVal lpszParams As String, _ ByVal LpszDir As String, ByVal FsShowCmd As Long) _ As Long Dim l As Long 'it works in windows XP SP3 l = ShellExecute(Me.hwnd, "Open", App.Path & "\Forms\Form.pdf", "", "C:\ProgramFiles(x86)", vbNormal
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)