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 Form_Load()
 
    ShellExecute Me.hwnd, vbNullString, "C:\Acrobat\Dokument.pdf", _
      vbNullString, "C:\", SW_SHOWNORMAL
End Sub