Option Explicit
 
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
 
 
Private Sub Command1_Click()
ShellExecute Me.hwnd, "open", _
    App.Path & IIf(Right$(App.Path, 1) <> "\", "\", "") & "VRB.pdf", _
    vbNullString, App.Path, vbNormalFocus
End Sub