VB.NET TIFF - Convert TIFF to PNG Using VB

'APIs for rendering TIFF to get a REImage collection
Private Function GetPage(pageIdx As Integer) As BasePage Implements TIFFDocument.GetPage
End Function
Private Function toImage() As BaseImage Implements TIFFPage.toImage
End Function
Private Function toImage(width As Integer, height As Integer) As BaseImage Implements TIFFPage.toImage
End Function
Private Sub New(imagesource As List(Of REImage))
End Sub

''' <summary>
''' Convert TIFF to REImage using TIFFDocument and TIFFPage as tools
''' </summary>
''' <param name="TiffFilePath"></param>
'''<returns></returns>
Public Function ConvertTIFFToREImage(TiffFilePath As [String]) As List(Of REImage)
	Dim buffer As New List(Of REImage)()

	Dim doc As New TIFFDocument(TiffFilePath)
	For i As Integer = 0 To doc.GetPageCount() - 1
		Dim page As TIFFPage = DirectCast(doc.GetPage(i), TIFFPage)

		Dim temp As REImage = DirectCast(page.ToImage(), REImage)
		If temp IsNot Nothing Then
			buffer.Add(temp)
		End If
	Next

	Return buffer
End Function


''' <summary>
''' Convert TIFF to images of PNG format
'''</summary>
''' <param name="TiffFilePath"></param>
''' <returns></returns>
Public Function ConvertTIFFToPNG(TiffFilePath As [String]) As List(Of Stream)
	' A list of stream which contains the image data of the PNG image.
	Dim buffer As New List(Of Stream)()
	Dim doc As New TIFFDocument(TiffFilePath)
	For i As Integer = 0 To doc.GetPageCount() - 1
		Dim page As TIFFPage = DirectCast(doc.GetPage(i), TIFFPage)

		Dim temp As REImage = DirectCast(page.ToImage(), REImage)
		Dim imageStream As New MemoryStream()
		If temp IsNot Nothing Then
			temp.Convert(imageStream, ImageFormat.Png)
			buffer.Add(imageStream)

		End If
	Next

	Return buffer
End Function