Code: Select all
Dim oGdViewer As GdPicturePro5.GdViewer = CType(CreateObject("GdPicturePro5.GdViewer"), GdPicturePro5.GdViewer)
Dim oImaging As GdPicturePro5.Imaging = CType(CreateObject("GdPicturePro5.Imaging"), GdPicturePro5.Imaging)
oGdViewer.SetLicenseNumber("LicenseKEY")
oImaging.SetLicenseNumber("LicenseKEY")
oGdViewer.LockControl = True
oGdViewer.DisplayFromPdfFile("input.pdf")
oImaging.SetNativeImage(oGdViewer.GetNativeImage)
oImaging.ConvertTo8BppQ()
oImaging.SaveAsGIF("c:\test.gif")
oGdViewer.CloseImage()
oImaging.CloseNativeImage()
MsgBox("END")