Private Sub ResizeImage(ByRef nImage As Image, ByVal nSize As Size)
Dim Thumb As New Bitmap(nSize.Width, nSize.Height)
Dim Graph As Graphics = Graphics.FromImage(Thumb)
Graph.InterpolationMode = Drawing2D.InterpolationMode.HighQualityBilinear
Graph.DrawImage(nImage, New Rectangle(0, 0, nSize.Width, nSize.Height))
Graph.Dispose()
nImage = Thumb
End Sub