Visual Basic - Abrir un pdf que se encuentra en un cd

Hola, les explico mi problema.....

Necesito hacer un programa en visual basic 6 el cual habrá un pdf especifico, pero cual es el problema, que ese programa debe correr desde un cd/dvd y también los pdf a ejecutar están un el cd/dvd, esto me tiene medio complicado pues todos los códigos "ejemplos" que e viste toman la base que lo que se ejecuta esta un el disco duro.

Gracias de Antemano.

Si esto te sirve

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

' Se declaran 2 variables
Public Abre As Long
Public PDF As String

Private Sub Form_Load()
' si el archivo pdf esta suelto en el cd
' no necesitas ponerle ruta

' se guarda en la variable el nombre del archivo
PDF = "ARCHIVO.pdf"

' si esta dentro de carpeta
PDF = "NOMBRE DE LA CARPETAARCHIVO.pdf"

' con esto se abre el archivo como si le hubieramos dado 2
' clicks
Abre = ShellExecute(Me.hwnd, vbNullString, PDF, "", "", vbNormalFocus)
End Sub

tienes que crear un archivo de texto en block de notas

que diga asi

[autorun]
OPEN=NOMBREDELPROGRAMA.exe

y le das guardar como autorun.inf

este archivo tienes que quemarlo junto con el cd

espero y te sirva suerete

entendí lo del auto run, lo que no me quedo muy claro fue lo otro :P

a ver veamos lo con un ejemplo :

Pensemos que el pdf que quiero abrir esta dentro de una carpeta en el cd/dvd que se llama "contenidos", y el archivo pdf que quiero abrir se llame "ejemplo.pdf"

como lo tendría que hacer ahí??

con un ejemplo me vasta, saludos..... y gracias.

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

Public Abre As Long
Public PDF As String

Private Sub Form_Load()
PDF = "contenidosejemplo.pdf"
Abre = ShellExecute(Me.hwnd, vbNullString, PDF, "", "", vbNormalFocus)
End Sub