FoxPro/Visual FoxPro - Ver Archivo PDF

1.- Como podría ver un archivo PDF en VF6 solo necesito presentarlo, ya lo intente en un control imagen pero no lo pude ver.

2.-En un cuadro de lista como le puedo decir que solo quero ver archivos JPG o PDF tengo este codigo "LIST1.ROWSOURCE = SYS(5)+SYS(2003)+'\DIBUJOS\*.JPG'" pero solo puedo ver JPG pero necesito ver los dos formatos

De antemano gracias

.- Como podría ver un archivo PDF en VF6 solo necesito presentarlo, ya lo intente en un control imagen pero no lo pude ver. y luego puedes utilzar el ejemplo siguiente


Necesitas tener el control Active X de Adobe Acrobat para poder hacerlo


CREATEOBJECT("pdf.ctrlpdf.5") && este es el control


This.oPDFform = CREATEOBJECT("cFrmDisplayPDF", "VIEW")

*-- If the object exists, then preview or send to the printer.
IF VARTYPE(This.oPDFform) = "O" AND (NOT ISNULL(This.oPDFform))
*-- Update the filename of the PDF file to preview/print.
This.oPDFform.cFilename = vcFilename

IF vcDest = "D"
*-- Display form with PDF file.
This.oPDFform.WindowType = 1 && Modal form.
This.oPDFform.Show()
ELSE
*-- For this active X object, we need to display the form before we can print.
This.oPDFform.WindowType = 0 && Modeless form.
This.oPDFform.Show()

*-- Pause for the Acrobat object before we print. Minimum time is about 0.5 seconds.
WAIT WINDOW "Printing..." TIMEOUT 0.5

*-- Call the print method without a dialog box.
This.oPDFform.OleAdobe.PrintAll()

*-- Pause after printing. For some reason, if we don't do this,
* the report will not print. Minimum time is about 2 seconds.
WAIT WINDOW "Printing..." TIMEOUT 2

This.oPDFform.Hide()
ENDIF
ENDIF


Suerte