Imports Spire.PDF
Imports Spire.PDF.Graphics
Imports System.Drawing
Imports System.Drawing.Imaging
Class form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim pdf As PdfDocument = New PdfDocument
'Load a sample PDF document
pdf.LoadFromFile("input.pdf")
For i As Integer = 0 To pdf.Pages.Count - 1
'Convert the first page to an image and set the image Dpi
Dim image As Image = pdf.SaveAsImage(i, PdfImageType.Bitmap, 500, 500)
image.Save("ToJPG" & i & ".jpg", ImageFormat.Jpeg)
Next
End Sub
End Class