Chris:

Here is some code I used with Amyuni Creator. I create a form and insert the OCX to display my PDF file. Also use some OCX from DBI Technologies to create toolbar.

The following code is located in the init of my form.

PARAMETER mreportname

THISFORM.PDFVIEWER.setlicenseKey(THISFORM.amyuni_owner,THISFORM.amyuni_lic)
ans = THISFORM.PDFVIEWER.OPEN(mreportname,"")
IF ans = 0
	MESSAGEBOX("Unable to open the document",16)
	RETURN .F.
ENDIF
THISFORM.PDFVIEWER.VerticalNaviguationBar = .F.
THISFORM.PDFVIEWER.horzScrollBar = .T.
THISFORM.PDFVIEWER.vertScrollBar = .T.
THISFORM.PDFVIEWER.STATUSBAR = .F.
THISFORM.PDFVIEWER.WIDTH = THISFORM.WIDTH
IF THISFORM.HEIGHT - 45 > 10
	THISFORM.PDFVIEWER.HEIGHT = THISFORM.HEIGHT - 45
ENDIF
THISFORM.PDFVIEWER.TOP = 50
THISFORM.PDFVIEWER.REFRESH
THISFORM.PDFVIEWER.currentpage = 1
THISFORM.PDFVIEWER.VISIBLE = .T.
THIS.WINDOWSTATE = 2
THISFORM.PDFVIEWER.zoomfactor = 125
*ThisForm.PDFVIEWER.shrinktoprintable = .t.
THISFORM.tool_bar_ctr.ItemText(15) ="125%"
THISFORM.toolbar_ctrl.Text2.VALUE =THISFORM.PDFVIEWER.currentpage
THISFORM.toolbar_ctrl.Text3.VALUE =THISFORM.PDFVIEWER.PAGECOUNT

The following code is located in the itemclick() method of my toolbar from DBI technologies.

*** ActiveX Control Event ***
LPARAMETERS nitem, barro
#DEFINE acCommandToolPageHome 53773
#DEFINE acCommandToolPageUp 53771
#DEFINE acCommandToolPageView 53538
#DEFINE acCommandToolNormalView 53539
#DEFINE acCommandToolPageDown 53772
#DEFINE acCommandToolPageEnd 53774
#DEFINE acCommandToolPrint 53510
#DEFINE acCommandToolzoomIn 53541
#DEFINE acCommandToolZoomOut 53542
** Scale Constants
#DEFINE 	acScaleNone 					0
#DEFINE	acScaleHorizontal				1
#DEFINE	acScaleVertical 					2
#DEFINE 	acScaleBoth 					3

** Handle errors
LOCAL oErr AS EXCEPTION

*!*	gotofirstpage = "acCommandToolPageHome"
*!*	gotoPreviouspage = "acCommandToolPageUp"
*!*	ZoomPage="acCommandToolPageView"
*!*	ZoomWidth="acCommandToolNormalView"
*!*	gotoNextpage="acCommandToolPageDown"
*!*	gotoLastpage="acCommandToolPageEnd"
DO CASE
CASE nitem = 3
	THISFORM.PDFVIEWER.docommandTool(acCommandToolPageHome)

CASE nitem = 4
	THISFORM.PDFVIEWER.docommandTool(acCommandToolPageUp)
CASE nitem = 1
	DO FORM Savepdf WITH THISFORM

CASE nitem = 11
	THISFORM.PDFVIEWER.Zoomfactor = 75
	THISFORM.tool_bar_ctr.ItemText(15) = "Page"
CASE nitem = 6
	THISFORM.PDFVIEWER.docommandTool(acCommandToolPageDown)

CASE nitem = 7
	THISFORM.PDFVIEWER.docommandTool(acCommandToolPageEnd)

CASE nitem = 9

**This creates a Picture Object
	WITH THISFORM.PDFVIEWER
*.SetLicenseKey ("Evaluation Version", Licence_number)
		TRY
**print to fit option
			.ScaleToPrinter = 3
			.docommandTool(acCommandToolPrint)

		CATCH TO oErr
**MESSAGEBOX( oErr.Message )
**MESSAGEBOX (oErr.ErrorNo )
			IF oErr.ErrorNo = 1426 THEN
*MESSAGEBOX("User clicked on Cancel")
			ENDIF
			CANCEL
		ENDTRY
	ENDWITH
CASE nitem = 13
	IF (THISFORM.PDFVIEWER.Zoomfactor + 10) < 1000
		THISFORM.PDFVIEWER.docommandTool(acCommandToolzoomIn)
		THISFORM.tool_bar_ctr.ItemText(15) = ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"
	ENDIF
CASE nitem = 16

	THISFORM.PDFVIEWER.Zoomfactor = 1000
	THISFORM.tool_bar_ctr.ItemText(15) = ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"

CASE nitem = 17

	THISFORM.PDFVIEWER.Zoomfactor = 800
	THISFORM.tool_bar_ctr.ItemText(15) = ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"

CASE nitem = 18
	THISFORM.PDFVIEWER.Zoomfactor = 400
	THISFORM.tool_bar_ctr.ItemText(15) = ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"

CASE nitem = 19

	THISFORM.PDFVIEWER.Zoomfactor = 200
	THISFORM.tool_bar_ctr.ItemText(15) = ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"

CASE nitem = 20

	THISFORM.PDFVIEWER.Zoomfactor = 150
	THISFORM.tool_bar_ctr.ItemText(15) = ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"
CASE nitem = 21
	THISFORM.PDFVIEWER.Zoomfactor = 125
	THISFORM.tool_bar_ctr.ItemText(15) = ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"
CASE nitem = 22
	THISFORM.PDFVIEWER.Zoomfactor = 100
	THISFORM.tool_bar_ctr.ItemText(15) = ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"
CASE nitem = 23
	THISFORM.PDFVIEWER.Zoomfactor = 50
	THISFORM.tool_bar_ctr.ItemText(15) =ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"
CASE nitem = 24
	THISFORM.PDFVIEWER.Zoomfactor = 25
	THISFORM.tool_bar_ctr.ItemText(15) = ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"
CASE nitem = 25
	THISFORM.PDFVIEWER.Zoomfactor = 12.5
	THISFORM.tool_bar_ctr.ItemText(15) = ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"

CASE nitem = 27
	IF (THISFORM.PDFVIEWER.Zoomfactor - 10) > 10
		THISFORM.PDFVIEWER.docommandTool(acCommandToolZoomOut)
		THISFORM.tool_bar_ctr.ItemText(15) = ALLTRIM(STR(THISFORM.PDFVIEWER.Zoomfactor))+" %"
	ENDIF

CASE nitem = 30
	DO FORM Searchpdf WITH THISFORM

ENDCASE
THISFORM.toolbar_ctrl.Text2.VALUE =THISFORM.PDFVIEWER.currentpage
THISFORM.toolbar_ctrl.Text3.VALUE =THISFORM.PDFVIEWER.PAGECOUNT
THISFORM.REFRESH