Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
  ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
  ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As _
  Long) As Long
Const SW_SHOWNORMAL = 1
 
Private Sub PDFAnzeigen()
 
Dim Datei As String
Dim Parameter As String
 
Datei="c:\irgendwas\irgendeinedatei.pdf"
Parameter="search="Auto"
 
ShellExecute Me.hwnd, vbNullString, Datei, Parameter, "C:\", SW_SHOWNORMAL
 
End Sub

EALA FREYA FRESENA