How to Convert PDF to JPG/JPEG in VB.NET?

Imports System.Drawing
Imports System.Drawing.Imaging
Imports PQScan.PDFToImage

Namespace PDF2JPG
  Class Program
    Private Shared Sub Main(args As String())
      ' Create an instance of PQScan.PDFToImage.PDFDocument object.
      Dim pdfDoc As New PDFDocument()

      ' Take PDF document.
      pdfDoc.LoadPDF("sample.pdf")

      'Get total page count.
      Dim count As Integer = pdfDoc.PageCount

      For i As Integer = 0 To count - 1
        'Convert page to image
        BitmapjpgImage = pdfDoc.ToImage(i)
        'Save image with jpg file type
        jpgImage.Save("output" & i & ".jpg", ImageFormat.Jpeg)
      Next
    End Sub
  End Class
End Namespace

Imports System.IO
Imports System.Drawing
Imports System.Drawing.Imaging
Imports PQScan.PDFToImage
Namespace PDFToJPG
  Class Program
    Private Shared Sub Main(args As String())
      ' Generate a new PDFDocument instance from PQScan.PDFToImage.
      Dim pdf As New PDFDocument()

      ' Open PDF document to file stream
      Dim stream As New FileStream("sample.pdf", FileMode.Open)
      ' Load message from PDF document stream.
      pdf.LoadPDF(stream)

      ' Specify jpg image width from PDF page
      Dim width As Integer = pdf.GetPageWidth(0) / 2
      ' Specify jpg image height from PDF page
      Dim height As Integer = pdf.GetPageHeight(0) / 2

      'Convert PDF first page to image with the customized size
      Dim jpg As Bitmap = pdf.ToImage(0, width, height)
      'Save image to jpg format
      jpg.Save("result.jpg", ImageFormat.Jpeg)
    End Sub
  End Class
End Namespace