Función que entrega el Thumbnail de una imagen (Vb Net)

Un Thumbnail es una versión en miniatura de una imagen, que suele usarse para vistas previas o decoración.
Para crear el Thumbnail, esta función utiliza la función de System.drawing, GetThumbnailImage (valga la redundancia ;P), por lo cual necesita que en la misma clase esté declarada esta otra:       

Function MycallBack() As Boolean
            Return False
End Function

Path_Img es la imagen de la cual se hará la miniatura. Las variables Alto y Ancho determinan (a partir del tamaño original de la imagen) el tamaño que deberá tener el thumbnail.


Function EntregaPic(ByVal Path_Img As String, ByVal Tamaño As Integer) As Image
'


Dim Pic As Image = Image.FromFile(Path_Img)
Dim Alto As Integer = Pic.Height
Dim Ancho As Integer = Pic.Width
Dim Mody As Integer
'
If Alto > Ancho Then
Mody = Tamaño / Alto
Else
Mody = Tamaño / Ancho
End If
'
Alto = CInt(Alto * Mody)
Ancho = CInt(Ancho * Mody)
'
Dim ThumbPic As Image
ThumbPic = Pic.GetThumbnailImage(Ancho, Alto, AddressOf Me.MycallBack, IntPtr.Zero)
'
Return ThumbPic
''
End Function

-


Editado: 23/06/2010. Disculpen si alguien usó el código que subí una horas antes n.n* Este es el correcto. Está compilado y probado.

-