Public Function GenerateThumbnail(original As Image, percentage As Integer) As Image

     If percentage < 1 Then

      Throw New Exception("Thumbnail size must be aat least 1% of the original size")

     End If

     Dim tn As New Bitmap(CInt(original.Width * 0.01F * percentage), _

                          CInt(original.Height * 0.01F * percentage))

     Dim g As Graphics = Graphics.FromImage(tn)

     g.InterpolationMode = InterpolationMode.HighQualityBilinear 

     g.DrawImage(original, New Rectangle(0, 0, tn.Width, tn.Height), _

                 0, 0, original.Width, original.Height, GraphicsUnit.Pixel)

     g.Dispose()

     Return CType(tn, Image)

    End Function