Número de Páginas en un MultiTiff

Muchos de nosotros nos hemos sumido en el caos de Contar un archivo de TIFF que trae más de una página. y No hayamos como hacerlo.



Quizás este Código, que fue muy Útil para mí, sea útil para Ustedes.

Dim Imagen1 As System.Drawing.Image
Imagen1 = System.Drawing.Image.FromFile(Archivo1)
Dim dimension1 As Object = New Drawing.Imaging.FrameDimension(Imagen1.FrameDimensionsList(0))
Dim sonpag As String = "0"
Try
sonpag = Imagen1.GetFrameCount(dimension1)
Imagen1.Dispose()
Imagen1 = Nothing
Return sonpag
Catch ex As Exception
Return "0"
End Try

¿Que les parece este código?

Bueno espero les sirva.

Regards.