~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~

			emb-computer.de ~~ ActiveX Controls

		Copyright  2002 Erik Zimmermann . All rights reserved.


				http://www.emb-computer.de

~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
       The private use is free, but Commercial use cost $10 per ActiveX Control!
~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~


It is a small sampler:



Private Sub Command1_Click()
Dim PDFTEST As New PDF
Call PDFTEST.OPEN_PDF_FILE("C:\test.pdf", 3, 1000, 2000)
Call PDFTEST.AddJPG(App.Path & "\test.jpg", 0, 0, 200, 200)
Call PDFTEST.AddGif(App.Path & "\test.gif", 0, 0, 200, 200)
Call PDFTEST.AddBMP(App.Path & "\test.bmp", 0, 0, 200, 200)
Call PDFTEST.CLOSE_PDF_FILE
msgbox "Ok"
End Sub
