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 ShowTypeEnum As Long) _
As Long
Private Enum ShowTypeEnum
SW_HIDE = 0
SW_SHOWNORMAL = 1
SW_SHOWMINIMIZED = 2
SW_SHOWMAXIMIZED = 3
SW_SHOWNOACTIVATE = 4
SW_SHOW = 5
SW_MINIMIZE = 6
SW_SHOWMINNOACTIVE = 7
SW_SHOWNA = 8
SW_RESTORE = 9
SW_SHOWDEFAULT = 10
SW_FORCEMINIMIZE = 11
End Enum
 
Public Function ApplicationPath() As String
ApplicationPath = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\")
End Function
 
Sub Dateianzeige()
Dim sDatei, Err
 
Err = ShellExecute(hWnd, "open", ApplicationPath & "table.pdf", vbNullString, _
  vbNullString, SW_SHOW)
 
If Err = "31" Then
MsgBox "Keine Programmzuweisung gefunden."
ElseIf Err <> "42" Then
MsgBox "Es ist ein Fehler aufgetreten."
End If
DoEvents
End Sub
 
Private Sub MnuExitItem_Click()
End
End Sub