PDF Viewer OCX ریجستر شده

سلام دوستان
سلام
آیا از شما برنامه نویسان حرفه ای فایل ریجستر شده OCX PDF VIEWER را ندارد
خیلی ضروری است
متشکرم
دوستان

با سلام
شما از این dll استفاده کنید شاید بدردتون بخوره
اینم مثال کار با این dll :

Dim docPDF As sPDF.sPDF = New sPDF.sPDF("Address File DLL", , , , , , _

"TESTsPDF", "a test of sPDF!", Environment.UserName)

docPDF.setText(CShort(50), CShort(350), CShort(45))

docPDF.writeText("Oblique!", False, sPDF.sPDF.FontName.ArialHelvetica, sPDF.sPDF.FontType.BoldItalic, 50, "Blue")

docPDF.writeImage(Application.StartupPath & "\pacifica.gif", 300, 50, 30, 30)

docPDF.setText(320, 300)

docPDF.writeText("field1 (write here!)", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.BoldItalic, 20, "Blue", True)

docPDF.setText(320, 330)

docPDF.writeText("field2 (write here!)", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.BoldItalic, 20, "Green", True)

docPDF.setText(320, 360)

docPDF.writeText("field3 (write here!)", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.BoldItalic, 20, "Yellow", True)

docPDF.setText(150, 450, 30, 0)

docPDF.writeText("Courier Bold", False, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.Bold, 24)

docPDF.writeText("Courier Italic", True, sPDF.sPDF.FontName.CourierNew, sPDF.sPDF.FontType.Italic, 24)

docPDF.writeText("ArialHelvetica", True, sPDF.sPDF.FontName.ArialHelvetica, sPDF.sPDF.FontType.Regular, 24)

docPDF.writeText("etc... etc...", True, sPDF.sPDF.FontName.ArialHelvetica, sPDF.sPDF.FontType.BoldItalic, 24, "Red")

docPDF.writeWebLink("http://www.google.it", "http://www.google.it", 350, 630, , , , 16)

docPDF.writeLine(40, 800, 40, 500)

docPDF.writeLine(40, 800, 100, 600)

docPDF.writeLine(40, 800, 160, 700)

docPDF.writeLine(40, 800, 200, 800)

docPDF.closePDF(True)

docPDF = Nothing

من که هرکار کردم نشد