Private Shared Function CropImage(ByVal img As Image, ByVal cropArea As _
      Rectangle) As Image
        Using bmpImage As New Bitmap(img)
            Return bmpImage.Clone(cropArea, bmpImage.PixelFormat)
        End Using
    End Function