<code><font color=green>' zunächst die benötigten API-Deklarationen</font>
Private Declare Function ShellExecute Lib "shell32.dll" _
    Alias "ShellExecuteA" (ByVal hWnd As Long, _
    ByVal lOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
 
<font color=green>' Einsatz der API-Funktion im Button_Click Ereignis</font>
Private Sub Command1_Click()
  Dim lRet As Long
  Dim sFilename As String
 
  <font color=green>' vollständiger Dateiname inkl. Pfadangabe</font>
  sFilename = "PDF-Dokuemtn.pdf"
 
  lRet = ShellExecute(Me.hWnd, "Open", sFilename, _
    vbNullString, vbNullString, vbNormalFocus)
End Sub</code>